Erreur dans ma macro.

[Arnaud61]

Bonjour à tous.

Voici ma macro Excel:

Sub Macro10()
Dim y As Long
y = Sheets.Count
For i = 6 To 1000
If ("D" & i) = "100%" Then Sheets ("Tâche N°" & y - 2), Range("B5") = "4.Fait"
End If
Next i
End Sub

La syntaxe n'est pas bonne... est-ce que quelqu'un peut me guider?

Pour info, pour la cellule "B5": j'ai mis une validation des données par l'intermédiaire d'une liste...

Merci

 

[Mouchty85]

Re : Erreur dans ma macro.

bonjour,
si tu pouvai nous envoyer ton fichier ca nous aiderai

Merci

 

[pierrejean]

Re : Erreur dans ma macro.

A tester

If Range("D" & i) = "100%" Then Sheets ("Tâche N°" & y - 2), Range("B5") = "4.Fait"

nb: suppose que la colonne D ne soit pas en format pourcentage

sinon

If Range("D" & i) = 1 Then Sheets ("Tâche N°" & y - 2), Range("B5") = "4.Fait"

 

[skoobi]

Re : Erreur dans ma macro.

Bonjour
essaye ceci:

Sub Macro10()
Dim y As Long
y = Sheets.Count
For i = 6 To 1000
If Range("D" & i) = "100%" Then Sheets("Tâche N°" & y - 2).Range("B5") = "4.Fait"
End If
Next i
End Sub

Edit: salut pierrejean

 

[Arnaud61]

Re : Erreur dans ma macro.

Merci pour vos réponses!

Malheureusement j'ai testé toutes vos propositions et j'ia une erreur de compilation:

"End If sans bloc If"

 

[pierrejean]

Re : Erreur dans ma macro.

re

eh oui on etait tellement orienté que l'on a pas verifié

il faut supprimer le End if

ce qui devrait donner:

Sub Macro10()
Dim y As Long
y = Sheets.Count
For i = 6 To 1000
If Range("D" & i) = "100%" Then Sheets("Tâche N°" & y - 2).Range("B5") = "4.Fait"
Next i
End Sub

 

[Arnaud61]

Re : Erreur dans ma macro.

Arf j'ai encore une erreur qui apparaît:

Erreur d'exécution '9'

L'indice n'appartient pas à la sélection

Sub Macro10()
Dim y As Long
y = Sheets.Count
For i = 6 To 1000
If Range("D" & i) = 1 Then [COLOR="Yellow"]Sheets("Tâche N°" & y - 2).Range("B5") = "4. Fait"[/COLOR]
Next i
End Sub

J'aimerais bien vous envoyer mon fichier mais il fait 184ko une fois compressé...

 

[pierrejean]

Re : Erreur dans ma macro.

re

le probleme est certainement ici

Sheets("Tâche N°" & y - 2)

verifie qu'il existe bien une feuille Tâche N°2 par exemple si tu as 4 feuilles (attention aux espaces )

 

[Staple1600]

Re : Erreur dans ma macro.

Bonsoir à tous



Tu peux n'envoyer que le code VBA

(VBE: Fichier Exporter --> tu obtiens des *.bas ou *.frm tu les zippes et tu les postes)

 

[Arnaud61]

Re : Erreur dans ma macro.

Bien vu pierrejean!

C'était effectivement ça!

Merci à vous!