Bonjour, bonsoir,
Je sollicite l'aide de la communauté pour un petit problème VBA.
Je souhaiterais faire la synthèse des valeurs de cellules de plusieurs onglets en fonction de la position d'un mot clé "HISTORIC".
Mon code :
Sub Bouton1_Cliquer()
Dim x As Range
Dim Ws As Worksheet
Application.ScreenUpdating = False
With Sheets("Feuil1")
For Each Ws In Worksheets
Set x = Ws.Range("A1:A1000").Find("HISTORIC", , xlValues, xlWhole, , , False)
Sheets("Feuil1").Cells(1 + n, 1) = Ws.Cells(x.Row + 1, x.Column + 1).Value
Sheets("Feuil1").Cells(1 + n, 2) = Ws.Cells(x.Row + 1, x.Column + 3).Value
n = n + 1
Next Ws
End With
Application.ScreenUpdating = True
Set x = Nothing
End Sub
J'obtiens une erreur 91 : Variable objet ou variable de bloc With non définie.
Quelqu'un peut t-il m'aider à me dépatouiller ?
Merci d'avance.
Je sollicite l'aide de la communauté pour un petit problème VBA.
Je souhaiterais faire la synthèse des valeurs de cellules de plusieurs onglets en fonction de la position d'un mot clé "HISTORIC".
Mon code :
Sub Bouton1_Cliquer()
Dim x As Range
Dim Ws As Worksheet
Application.ScreenUpdating = False
With Sheets("Feuil1")
For Each Ws In Worksheets
Set x = Ws.Range("A1:A1000").Find("HISTORIC", , xlValues, xlWhole, , , False)
Sheets("Feuil1").Cells(1 + n, 1) = Ws.Cells(x.Row + 1, x.Column + 1).Value
Sheets("Feuil1").Cells(1 + n, 2) = Ws.Cells(x.Row + 1, x.Column + 3).Value
n = n + 1
Next Ws
End With
Application.ScreenUpdating = True
Set x = Nothing
End Sub
J'obtiens une erreur 91 : Variable objet ou variable de bloc With non définie.
Quelqu'un peut t-il m'aider à me dépatouiller ?
Merci d'avance.