Bonjours à tous
Je vous contact car j'ai un petit soucis d’exécution de cette macro dans tous mes classeurs . Elle marche si je l’exécute seulement dans un classeur.
Et je voulais savoir également : mon Id =0 . Imaginons que mon premier classeur termine à 800 , le deuxième va-t-il commencer à 801 ou bien à 1 ?
Merci d'avance et merci au forum
Je vous contact car j'ai un petit soucis d’exécution de cette macro dans tous mes classeurs . Elle marche si je l’exécute seulement dans un classeur.
Code:
Sub Macro12()
'
' Macro12 Macro
'
' Touche de raccourci du clavier: Ctrl+n
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "Analyse*" Then
wb.Sheets("Feuil1").Select
wb.Sheets("Feuil1").Move Before:=Sheets(1)
wb.Sheets("Concaténation").Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
wb.Sheets("Feuil1").Select
wb.Sheets("Feuil1").Move Before:=Sheets(1)
monID = 0
j = 1
k = 1
derniereLigne = wb.Sheets(1).Range("B65536").End(xlUp).Row
For i = 1 To derniereLigne
If wb.Sheets(1).Cells(i, 1).Value <> "" Then
monID = monID + 1
valeur = Sheets(1).Cells(i, 1).Value
wb.Sheets(2).Cells(j, 1).Value = monID
wb.Sheets(2).Cells(j, 2).Value = Sheets(1).Cells(i, 1).Value
j = j + 1
End If
wb.Sheets(3).Cells(k, 1).Value = monID
wb.Sheets(3).Cells(k, 2).Value = Sheets(1).Cells(i, 2).Value
k = k + 1
Next
wb.Sheets(2).Name = "Danger"
wb.Sheets(3).Name = "Mesure"
End If
Next wb
End Sub
Et je voulais savoir également : mon Id =0 . Imaginons que mon premier classeur termine à 800 , le deuxième va-t-il commencer à 801 ou bien à 1 ?
Merci d'avance et merci au forum