Simplifié une VBA

[poussy67]

Bonjour le Forum


J'ai un petit souci de VBA, je suis novice dans VBA. Je voudrais savoir et si c'est possible de simplifier une vba. Dans mon classeur, j'utilise une VBA qui m'indique les cellules vide dans la colonne ("A") dans mon tableau. j'utilise cette VBA que semble enorme et qu'il existe surement une solution plus simple.

Sub test()
Sheets("QA").Select
If Sheets("QA").Range("A8") = "" Then
Sheets("QA").Range("AA7").Value = "C"
End If
If Sheets("QA").Range("A9") = "" Then
Sheets("QA").Range("AA8").Value = "C"
End If
Jusqu'a la cellule ("A300")
aurait-il un moyen de simplifier cette VBA

merci d'avance pour votre aide

cdt Poussy

 

[Robert]

Re : Simplifié une VBA

Bonjour Poussy, bonjour le forum,

Essaie avec une boucle :

Sub Macro1()
Dim x as Integer
For x = 8 To 300
    If Sheets("QA").Range("A" & x) = "" Then Sheets("QA").Range("AA" & x - 1).Value = "C"
Next x
End Sub

 

[poussy67]

Re : Simplifié une VBA

Bonjour Robert

Impec ça marche super bien et cela me convient beaucoup

encore merci et bonne journée