Contenu récent par WDAndCo

Re : Macro pour dupliquer un onglet en changeant un élément d'une cellule précise Bonjour le Forum et moibrazu Peut être : Sub Macro1() ' ' Macro1 Macro ' dupliquer onglet ' Sub TestAjoutFeuilles() ' For NbO = 168 to 174 Step1 Sheets(Sheets.Count).Copy...

Re : Case à cocher macro Bonjour le Forum et marcodebute350 Sheets("COMPARATIF").Columns("H").EntireColumn.Hid den = False Peut etre : Sheets("COMPARATIF").Columns("H").EntireColumn.Hidden = False

Re : Le premier mot Merci excfl

Bonjour le Forum J'ai : "='Feuille d''un controle'!C6" qui me donne "Clé à choc" je voudrais : "Clé" Bien sur je voudrais la meme chose si 'Feuille d''un controle'!C6 contient un autre mot composé ou pas D'avance merci

Re : Suppression ligne condition Bonjour le Forum et fileofish For I = 1 to 100 Next I Le pas est de +1 For I = 1 to 100 Step 5 Next I Le pas est de +5 For I = 100 to 1 Step-1 Next I Le pas est de -1 Ect....

Re : [Résolu] - Recherche de N° de ligne par rapport à la formule dans une cellule Merci a vous deux, j'ai donc fait une complie de vos réponsesDim a As String For lg = 2 To Range("P1").Value a = Sheets("Imprime").Range("A" & lg).Formula 'Range("M" & lg).Value = Mid(a, 12, Len(a))'ERIC S...

Re : [Résolu] - Recherche de N° de ligne par rapport à la formule dans une cellule Merci Dugenou, mais je ne peut meme pas lire votre fichier xlsm ici au boulot certain poste, comme le mien sont restés en XP Pro ! Encore merci a tous !

Re : Recherche de N° de ligne par rapport à la formule dans une cellule Merci ERIC S j'ai les infos que je voulais grace a votre aide :Dim a As String For lg = 2 To Range("P1").Value a = Sheets("Imprime").Range("A" & lg).Formula Range("M" & lg).Value = Mid(a, 12, Len(a) - 11) Next...

Re : Recherche de N° de ligne par rapport à la formule dans une cellule Bonjour ERIC S et le Forum For lg = 2 To 1000 Range("M" & lg) = Sheets("Imprime").Range("A" & lg).Formula Next ne me mets pas la formule qui est en A mais sa valeur ! Merci quand meme.

Bonjour le Forum J'aimerais connaitre le N° de la ligne de référence de la cellule qui est colonne A : Sur l'onglet "Imprime" en : A2 j'ai =Registre!A2 en M2 je voudrais 2 A3 j'ai =Registre!A4 en M3 je voudrais 4 A4 j'ai =Registre!A3 en M4 je voudrais 3 A5 j'ai =Registre!A23 en M5 je...

Re : Recap sur X onglets Bonjour Dranreble et leForum J'ai enfin trouvé se que je voulaisOption Explicit Private Sub Worksheet_Activate() [A3:J31000].ClearContents Dim derlig Dim DL, Te(), Le As Long, Ts(1 To 10000, 1 To 7), Ls As Long, I As Long, NF As String, _ F As Worksheet...

Re : Recap sur X onglets Bonjour Branreb et le Forum, J'ai mis un certain temps pour comprendre qu'il ne valait pas d’autre onglet qui commençait par S Comment faire pour ne pas prendre en compte la ligne Si AA=0 et mettre le numéro de semaine même si dans la plage copier il n'y a pas de...

Re : Recap sur X onglets Bonjour Branreb et le Forum, Je ne sais pas mettre cela en code !

Re : Recap sur X onglets Re bonjour Branreb et le Forum Comment intégrer cela à la Macro qui ce déclenche lors du changement d’onglet :Private Sub Worksheet_Activate() [A1:J1000].ClearContents 'Efface tout For I = Sheets.Count - 3 To 6 Step -1 'Tous les onglets...

Re : Recap sur X onglets Bonjour Dranreb et le Forum Merci pour cette solution mais la récupération doit être faite si AG <> "" et AC <> "" De plus les cellules A sont fusionnés ! (c'est une adaptation) D’avance merci