[XL-2007] Incrémentation dates dans onglets générés automatiquement sujet

Bonjour à toutes et à tous.

J'ai fait un petit code vba pour dupliquer automatiquement le contenu d'un onglet (onglet J1 du fichier ORGANISATION VACANCES ETE). Pour chacun des onglets dupliqués, la date contenu dans la cellule A1 doit s'incrémenter de un jour à chaque fois.
Ex: la cellule A1 de l'onglet J1 contient la valeur "mardi 08 avril 2014". Je duplique 3 fois l'onglet; j'ai alors les onglets J2, J3, J4 qui se créent; et je devrais avoir la valeur "mercredi 09 avril 2014" en A1 de l'onglet J2, "jeudi 10 avril 2014" en A1 de l'onglet J3 et "vendredi 11 avril 2014" en A1 de l'onglet J4.
Or ça n'est pas tout à fait le cas.... d'où vient l'erreur dans mon code?

Sub Copie()
Dim i, z, Valeur_A_Recup
z = InputBox("Nombre de copies ", "Copie")
Valeur_A_Recup = Sheets("J1").Range("A1").Value
For i = 1 To z
Sheets("J1").Copy After:=Sheets(i)
ActiveSheet.Name = "J" & i + 1
Sheets("J" & i).Range("A1").Value = Valeur_A_Recup + i
Next i
End Sub


Merci de votre aide.

Fichiers attachés

• 
  
  CAHIER VACANCES.zip
  (49,7 Ko)
  

[XL-2007] copie et transfert de certaines cellules d'une feuille vers une autre feuille avec mise en page sujet

bonjour,
j'ai surement mal chercher mais je ne trouve pas réponse à mon problème, que voici:
- je voudrais en sélectionnant un ligne de mon tableau excel avoir grâce à un bouton de commande qu'il y est une copie de certaines cellules et coller dans une deuxième feuille dans des cellules bien précise. je me complète en sélectionnant la ligne X de la feuille Etat-engins et en clickant sur le bouton os les cellules AX, BX, CX et MX soit copiées vers la feuille os et mis respectivement en E35 pour AX, C53 pour BX, E38 pour CX et C54 pour MX.
merci de votre aide, je vous joint mon fichier afin d'être plus clair.test.zip

Fichiers attachés

• 
  
  test.zip
  (97,3 Ko)
  

[XL-2007] Enregistrer sous une feuille protégée sujet

Bonjour,
A la fin de mon travail, je voudrais copier une feuille en écrasant la feuille protégée, présente dans un classeur fermé. Le classeur en lui-meme n'est pas protégé.
J'ai écrit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Application.DisplayAlerts = False ThisWorkbook.Sheets("F1").Copy 'Copie la Feuille Tables dans un nouveau classeur 'Enregistrement sous fichier existant ChDir "\SHARED\DONNEES\xxx\# Livrables" ActiveWorkbook.SaveAs Filename:= _ "\SHARED\DONNEES\xxx\# Livrables\MAJ.xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False code Windows("MAJ.xls").Close savechanges:=True Application.EnableEvents = True Application.DisplayAlerts = True

---

mais j'ai un message qui me dit que MAJ.xls est protégé contre l'écriture.
Est-ce que quelqu'un peut m'aider ?
Merci

[XL-2007] Gestion Erreur dans un userform - CDate sujet

Bonjour,
Dans un formulaire, on doit saisir plusieurs dates.
Pour ce faire, j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TbxPeriod1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'On accepte les chiffres et / Ou bien, si on tappe un double // dans la chaîne, elle est refusée. If InStr("0123456789/", Chr(KeyAscii)) = 0 Or InStr(TbxPeriod1.Value, "//") Then KeyAscii = 0: Beep: _ MsgBox "Saisie incorrect, recommencez, SVP.", vbExclamation, "ERREUR" TbxPeriod1.SetFocus Dim Valeur As Byte TbxPeriod1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox Valeur = Len(TbxPeriod1) If Valeur = 2 Or Valeur = 5 Then TbxPeriod1 = TbxPeriod1 & "/" TbxPeriod1.AutoTab = True 'tabulation automatique End Sub

---

puis pour retour sur la feuille excel, dans la procédure de validation (bouton Ok) :

Code:

---

Range("C6") = CDate(TbxPeriod1.Value)

---

il reste à gérer les erreurs de saisie de type jour supérieur à 31 et mois supérieur à 12 ; j'ai donc mis une gestion d'erreur, toujours dans la procédure de validation de type

Code:

---

1 2 3 4 5 6 7 8

On Error GoTo ErrorGestion 'Gestion des erreurs notamment saisie d'un mois >12 Range("C6") = CDate(TbxPeriod1.Value) ... Unload Me Exit Sub ErrorGestion: MsgBox "Erreur de saisie incohérente" & Chr(10) & Chr(10) & " Vérifier les dates ?", vbCritical, "ERREUR" End Sub

---

Cela fonctionne pour les jours supérieurs à 31, mais pour les mois, si je saisie 01/13/2014, je n'ai pas de message d'erreur et dans le tableur, j'ai 13/01/2014 ---- HOREUR ! :calim2:
Quelqu'un peut-il m'aider svp.
Merci

[XL-2007] [MACRO VB] Fermeture de fichier au bout d'un temps donné sujet

Bonjour,

Peut-on rajouter à une macro existante, un bout de programme fermant le fichier Excel au bout de 5mn par exemple.

Merci de votre aide.

[XL-2007] Contrôle ActiveX disparaït dans feuille de calcul sujet

:oops::oops: Bonjour le Forum,

dans un nouveau fichier, j'utilise les codes suivants pour lancer des macros dans des feuilles de calcul.

Code:

---

1 2 3

Private Sub CommandButton5_Click() Saisie_Compléter End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton5_MouseDown _ (ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) With CommandButton5 .Visible = False .Value = Not .Value .Visible = True End With End Sub

---

Jusqu'à présent et dans tous mes autres fichiers, tout se passait bien mais, depuis ce matin dans un nouveau fichier, un des boutons fonctionne pour lancer la macro puis disparaît. Il réapparaît lorsque je me remets en mode "Création" !!!
Si je le recrée, le phénomène se reproduit.

J'utilise plusieurs boutons de ce type qui ne posent pas de problème dans cette même feuille.

Pouvez-vous me dire quel est mon "nouveau" problème et comment faire pour y remédier ?

Je vous remercie par avance pour vos réponses.
Cordialement.

Nonno 94.

[XL-2007] Remlissage listview par des donnees de Deux Feuilles Excel sujet

Bonjour,

J'ai un Usf Contient ListView et j'ai deux Feuilles Excel Contient mes donnees

Voila mon probleme, Je doit remplir le ListView par les donnees des deux Feuille l'une a cote de l'autre
(voir shema ci-apres)

Entete1 (Du litstview) Entete2 Entete3
Donnees Feuille1 donnees feuille1 donnees feuille2

merci par avance
salutations

[XL-2007] Problème Fin exécution macro sujet

Bonjour,
j'ai créé une petite macro dans excell 2007 qui
1-ouvre une Forms avec 2 champs usr&psswd et 2 boutons ok & cancel
2-un script qui se connecte à une db postgrsql en utilisant les données de connexion renseignées(user et passwd) et qui affiche le résultat d'un query dans la feuille
c'est donc relativement simple.

Le problème se trouve à la fin de l'exécution de la macro...
si dans la Forms je clique sur cancel,il fait ce qu'il faut...rien, il reste dans la feuille excell comme si on avait rien fait
si dans la Forms j'encode un usr/passwd valide et que je clique sur ok...il exécute bien la requête,il affiche bien le résultat dans excell mais ...il revient en mode édition sur la forms (il ouvre donc l'éditeur de forms)au lieu de rester dans la feuille excell...
voici le script...une idée?

Load frmConnex
frmConnex.Show

Dim user As String
Dim passwd As String

user = frmConnex.txtUser
passwd = frmConnex.txtPasswd

If frmConnex.blnCancel = True Then
Unload frmConnex
Exit Sub
End If

Unload frmConnex


Application.Goto Reference:="gesdos_connex"
Dim objDb_con
Dim strSomeValue As String

Set objDb_con = CreateObject("ADODB.Connection")
Set Rsdatatype = CreateObject("ADODB.RecordSet")


glbConnString = "Driver={PostgreSQL Unicode};Database=statistics;server=sd1833v;port=5433;UID=" + user + ";Pwd=" + passwd

If glbConnString = "" Then
MsgBox "Enter the Connection String"
Else:
objDb_con.Open glbConnString

strSql = "select xxxx " & _
" from xxx" & _
" join xxx" & _
" where xxx"

Set Rsdatatype = objDb_con.Execute(strSql)
Columns("A:E").ClearContents
[A2].CopyFromRecordset Rsdatatype

Rsdatatype.Close

End If
objDb_con.Close
Set Rsdatatype = Nothing
Set objDb_con = Nothing
Exit Sub
End Sub

[XL-2007] Exécution d'un IF qu'une seule fois sujet

Bonjour a toutes et tous, Forum bonjour

Avec le code ci-dessous le premier de chaque mois, je déplace d'une colonne vers la droite.

Le code fonctionne bien, seulement un petit soucis m'ennuie un peu.

Le code est placer en début de "Userform initialize"

Une première mise a jour s'est bien effectuer a la première ouverture de mon fichier ce matin.

Mais maintenant le code s'effectue a chaque initialisation de USF

Bon c'est normal puisque nous sommes le 01 février.

Mais comment faire pour que ce code ne s'effectue qu'une seule et unique fois

Merci a vous et de votre temps

Bonne fin d'après midi et merci

Cdlt Ray

Code:

---

'*** RECOPIER LES COLONNES ET LIGNES LE PREMIER JOUR DE CHAQUE MOIS AUTOMATIQUEMENT ***
 
With Sheets("Compte")
      With Cells(18, Month(Date) + 3).Resize(9, 1)   
 
If Month(Date) > 1 Then        'Date changement de colonne mensuel             
    .Copy .Offset(0, 1)                 
    .SpecialCells(xlCellTypeConstants, 23).ClearContents             
End If           
      End With   
End With

---

[XL-2007] Creer une macro aléatoire sujet

Bonjour,

Comment faire pour éditer une macro qui comparerait des data (D10 à D18) à des Alea (E10 à E18) de façon à avoir le plus rapidement une correspondance totale avec une somme égale à 8 en F19.
La création d'Alea va de E18 à E7 dans cet ordre précis car si le premier Alea ne correspond déjà pas au data en face, on peut faire recommencer le code de la macro au début c'est pas la peine de créer les 11 autres.

Les Alea doivent être faits en une seule fois (comme un paquet de 12 nombres séquentiels) pour conserver la continuité E18 : E7 dans leur séquence aléatoire continue.

voici ma forme de dossier:
http://cjoint.com/?DBbrTPf8hqe

peut-être auriez vous une autre idée qu'alea pour que cette séquence soit la plus logique ? merci

[XL-2007] incrémentation journalière auto sujet

Bonsoir,
Je souhaite réaliser une macro, me permettant d'écrire à partir de l'information en A1 (le nom du mois) ,dans la colonne A la date journalière et dans la colonne B comme ci- dessous:
Février
1/02/14 M
M
S
S
N
N
2/02/14 M
et ainsi de suite jusqu'au dernier jour du mois.
je devrai pouvoir utiliser cette macro pour tous les mois de l'année, dans une même feuille XL, un mois par onglet.
J'ai déjà essayé, mais je n'arrive pas à faire le lien entre le mois et le nombre de ligne nécessaire pour un mois.
Merci beaucoup de votre aide
Cordialement
mimicraquelin

[XL-2007] Vba--RechercheVertical--tableau recapitulatif--Création Fichier sujet

Bonjour tout le monde,

Je vous expose ce que j’essaie de faire, tout d’abord je souhaite le faire en VBA et automatiser tout ça car j'ai beaucoup de fichier à traiter ce qui me permettrai de gagner du temps.

Alors je vous expose mon problème: Tout d'abord j'ai deux onglets un nommé H (A:M) et l'autre W (A:K), l'élément qui les relies est un numéro de dossier.

-Premièrement il faut que je fasse une recherche vertical du numéro de dossier de H situé en A2 par rapport à la table W (numéro de dossier aussi en A2) et que j’insère l'ensemble des élément de la table W à droite de la table H donc H+W (A:X)

Code:

---

//Répéter le code autant de fois qu’il y a de colonne a insérer en changeant le numéro de la colonne et la colonne de destination
Sub Recherche() 
On Error Resume Next 
Table1 = Sheets(‘H’).Range("A2:J4000")
Table2 = Sheets(‘W’).Range("H3:I4000")
Dept_Row = Sheet1.Range("N2").Row ' Change E3 with the cell from where you need to start populating the Department 
Dept_Clm = Sheet1.Range("N2").Column
Application.VLOOKUP(A2, table_array, column_index, range_lookup)
Sheet1.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(A2, Table2, 1, False) 
Dept_Row = Dept_Row + 1 
Next A1
End Sub

---

-Deuxièmement il faut que j'effectue des comparaisons entre ces deux tableaux ces comparaison seront sur 10 points différents:
Il seront exemple entre
A1 et N1 (Catégorie)
B1 et O1 (Marque)
C1 et P1........ (Taille)
Je sait comment le faire en mettant la formule dans la cellule et ensuite l'étendre mais pas en VBA..

Code:

---

                MET VRAI OU FAUX SI EGAL OU DIFFERENT NE MET RIEN SI UNE DES 2 CASES EST NUL
=SI(OU(A1="";N1="");"";SI(A1=A1;"VRAI";"FAUX"))

---

-Troisièmement créer 10 fichier excel avec les comparaison qui sont fausses
**ex1 si il y a 50 n° de dossier ayant "Faux" pour Catégorie alors création d'un fichier excel nommé "Catégorie" avec les 50 lignes et y mettre pour colonne l’ensemble des éléments c'est à dire de H+W+Tableau comparaison (A:AH) qui ont "Faux"
**ex2 si il y a 150 n° de dossier ayant "Faux" pour Marque alors création d'un fichier excel nommé "Marque" avec les 150 lignes et y mettre pour colonne l’ensemble des éléments c'est à dire de H+W+Tableau comparaison (A:AH) qui ont "Faux"

///AUCUNE IDEE///

Merci de votre futur aide pour l'avancer de mon projet
Cordialement

[XL-2007] rapatrier les données de plusieurs onglets dans un onglet sujet

Bonjour, à tous

Dans le fichier joint, je renseigne des dates en colorant les cases correspondantes
Voila mon probléme, pour avoir une vision annuelle pour un poste concerné, j'aimerai rapatrier dans UN ONGLET les données annuelles d'un "Poste" à la demande.

Je joint le fichier, peut étre vous pourrez mieux comprendre.

Merci d'avance

fthem

Fichiers attachés

Planning complet.zip (151,4 Ko)

[XL-2007] faire une recherche dans une chaine aléatoire sujet

Bonsoir, voici mon problème je tente de copier l'info d'une cell dans une autre cell. Mais le format n'est pas homogène. Je cherche le résultat de la colonne de droit a partir de celle de gauche.

Merci a tous

AB 1.3: BANANE JAUNE AB 1.3
AB 2A.1: ORANGE AB 2A.1
AB 8: ORANGE AB 8
BLEU - AB 6E BLEU VERT AB 6E
BCA GOLD - AB 5E. BANANE BLEU AB 5E

[XL-2007] impression feuille excel sujet

Bonjour à tous,

Je sollicite votre aide pour résoudre un très grand souci.
Mon problème est le suivant:
J'ai un fichier excel avec plusieurs feuilles. Je veux par exemple imprimer une feuille nommée "Contrat avenant" à chaque fois que la valeur d'une cellule se trouvant dans une colonne de la feuille nommée "avenant convention" est égal à "Envoyé" et à chaque fois que la valeur d'une autre cellule d'une autre colonne de la même feuille "avenant convention" est égal à "A".

Je veux faire une boucle qui puisse générer un fichier PDF à partir de la feuille "Contrat avenant" en même temps pour toutes les lignes répondant à ces 2(deux) critères sans pour autant avoir à cliquer à chaque fois pour sauvegarder le fichier PDF généré.

Je souhaite que le fichier généré soit nommé automatiquement le numéro de dossier(qui est une colonne de la feuille"avenant convention") correspondant à la ligne à imprimer.

[XL-2007] Erreur d’exécution ‘424’ : Objet requis sujet

Bonjour, en essayant d’appliquer ma macro à un nouveau classeur je rencontre quelques difficultés.


Un message d’erreur apparait : Erreur d’exécution ‘424’ : Objet requis.

Voici ma macro :

ActiveWindow.SmallScroll Down:=-3
With Worksheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Prod. Hier. PG1")
.Orientation = xlPageField
.Position = 1
End With

Pouvez-vous m’aider ?


Cordialement,


Marine.

[XL-2007] calcul de délai de carence sujet

Bonjour, je suis novice sur excel, je cherche un tableau pour calculer automatique à partir des dates d'entrée et de fin de CDD, le délai de carence avant embauche sur des CDD en jours calendaire et en jours ouvrés tout en tenant compte des jours férié. j'ai deja fait un tableau regroupant les jours férié mais je n'ai pas trouver pour les formules de calcul.
merci

[XL-2007] Pb de syntaxe inputbox sujet

Bonjour,

Honte à moi car je ne vois pas où se situe mon erreur sur cette inputbox :

Code:

---

racine = inputbox ("Quel est la racine du nom concernant la préparation du ""circuit regroupé"" :" & vbCrLf & _
                    "Exemple : ""Prépa"" pour le circuit regroupé ""Prépa AB"" regroupant les circuits informatiques :" & vbCrLf & _
                    "- CdP AB" & vbCrLf & _
                    "- TAQ AB" & vbCrLf & _
                    "- 8" & vbCrLf ,"Saisir la racine des circuits regroupés en préparation",,,,,)

---

Message : "Erreur de compilation Attendu expression"

Merci de votre aide

[XL-2007] AJOUTER DES LIGNES A UNE LISTBOX sujet

Bonsoir,

Je réalise un programme dans lequel je suis amené à compléter une listbox à la demande de l'utilisateur. Vous trouverez ci dessous une version d'essai correspondant à mon besoin. Il me sert à tester le fonctionnement de ce morceaux pour lequel je "pêche":?:?

J'ai un formulaire Userform1 avec une listbox et 3 boutons : 1 bouton remplir la listbox (en automatique à l'ouverture sur mon programme), 1 bouton ajout d'une ligne qui ouvre un autre userform, 1 bouton qui renvoie toutes les données de la listbox vers une feuille excel.

ci dessous le code :

Code:

---

Private Sub CommandButton1_Click()

'charge le contenu de la listbox list

UserForm1.list.RowSource = "f1!a2:b7"

End Sub

Private Sub CommandButton2_Click()

'charge le form 2 pour ajout et ajoute une liste à la listbox list2

Load UserForm2
UserForm2.List2.RowSource = "f2!a2:b7"
UserForm2.Show

End Sub

Private Sub CommandButton3_Click()

'copier le contenu de listbox list dans la feuille excel f1

Sheets("f1").Range("d2").Resize(UserForm1.list.ListCount, 2) = UserForm1.list.list()
Unload UserForm1

End Sub

---

Mon problème réside dans le second formulaire userform2 dans lequel se trouve une listbox list2 dans le quel l'utilisateur coche une case suite réglage de la propriété liststyle à fmListStyleOption. L'utilisateur coche une ou plusieurs lignes et clique sur un bouton commandbutton permet de valider son choix et normalement ajouter cette ou ces ligne(s) dans la listbox list1 dans Userform1.

J'obtient le message suivant dans la configuration actuelle : erreur d'éxécution 70, accés refusé.
J'ai essayé plusieurs formes sans succès et j'ai eu des messages différents mais jamais un résultat.
Ci dessous le code :

Code:

---

Private Sub CommandButton1_Click()

MsgBox UserForm2.List2.Value
UserForm1.list.SetFocus
UserForm1.list.AddItem UserForm2.List2.Value

Unload UserForm2

End Sub

---

Merci encore pour votre aide précieuse

[XL-2007] Recherche de données dans plusieurs feuilles excel sujet

Bonjour

Je possède un tableau de la forme suivante :

Feuil 1 : Colonne A,B,C,D renseigné (70 lignes)
Feuil 2 : Colonne H, I, J ,K renseignés (80 lignes)

Je souhaiterais que lors du lancement de la macro les étapes suivantes se réalisent :

1/Ouverture d'une input box demandant les éléments à rechercher à l'utilisateur à l'utilisateur
2/ Recherche si la concaténation des colonnes 1,B,C,D (boucle ligne par ligne) dans feuil1 trouve un résultat identique à celui fournit par l'utilisateur en 1/, sinon
3/ Recherche si la concaténation des colonnes (boucle ligne par ligne) de la Feuil 2 trouve un résultat identique à celui fournit par l'utilisateur en 1/, sinon
4/ Afficher un message "la référence tapée n'existe pas"

Je ne pense que ce soit difficile à coder mais mes connaissances sont réduites dans le domaine mais je suis preneurs
d'explications

autre info ; les caractères des feuil 1 et feuil 2 ainsi que ceux écrit dans l'inputbox peuvent être des chiffres ou des lettres

D'avance merci