Erreur 13 Incompatibilité de type

Bonjour,

Je possède une macro qui m'affiche un tableau, et qui m'ajoute une colonne "Ventilation", cette colonne Ventilation est remplis seulement de "1" lorsque la colonne A est pleine, j'ai une macro qui permet de faire cela, je décide balancer les deux macro avec un seul bouton

Cela marche, il m'affiche mon tableau, ajoute ma colonne "Ventilation" et le remplis de "1" tant que ma colonne A est remplis mais j'ai une erreur 13 "incompatibilité de type"

Voici mon code de la macro pour le remplissage de ma colonne "Ventilation"

Sub Complete()
Dim Cel As Range
For Each Cel In Range("A3", Range("A3").End(xlDown))
If Cel <> "" Then
Cel.Offset(0, 1).Value = 1
End If
Next Cel
End Sub

La ligne surligné est

If Cel <> "" Then

Merci d'avance pour votre aide

Bonjour,

essaie ainsi

Sub Complete()
Dim Cel As Range
For Each Cel In Range(range("A3"), Range("A3").End(xlDown))
If Cel <> "" Then
Cel.Offset(0, 1).Value = 1
End If
Next Cel
End Sub
 

C'est parfait, j'avais donc oublié une parenthèse xD merci pour tout !

J'ai parlé trop vite, il me refait la même erreur avec la même ligne :/

as-tu noté que j'ai ajouté un range( dans ton instruction ?

si oui,

mets-nous ton fichier avec les explications pour reproduire le problème.

Tu as raison j'ai oublié le range toute mes excuses ! ^^