Rebonjour,
j'dois avoir les yeux bouchés à st'heure ci !!
J'ai la macro suivante qui bloque à :
" For ligne = 3 To Sheets("Plan Fiche N°4").Range("A3").End(xlDown).Row "
hors elle fonctionne bien pour une autre feuille similaire ???
qu'est ce qui ne va pas ?
Private Sub cmdGénérationPlan_Click()
Dim ligne As Integer
Sheets("Fiche N°4").Select
' si mesure non traité, Date : Aujourd'hui
Sheets("Fiche N°4").Select
MsgBox "Inscription des mesures non traités au nouveau plan", vbOKOnly +
vbInformation, "Préparation NOUVEAU PLAN "
For ligne = 3 To Sheets("Fiche N°4").Range("A3").End(xlDown).Row
If Sheets("Fiche N°4").Range("J" & ligne).Value = "X" Then
Sheets("Fiche N°4").Range("I" & ligne).Value = Date
Sheets("Fiche N°4").Range("J" & ligne).Value = " "
End If
Next ligne
...
end sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour MarkoS,
Quel message d'erreur ? Quelle est la valeur de Sheets("Plan Fiche N°4").End(xlDown).Row ?
ChrisV
"MarkoS" a écrit dans le message de news:
Rebonjour, j'dois avoir les yeux bouchés à st'heure ci !!
J'ai la macro suivante qui bloque à : " For ligne = 3 To Sheets("Plan Fiche N°4").Range("A3").End(xlDown).Row "
hors elle fonctionne bien pour une autre feuille similaire ??? qu'est ce qui ne va pas ?
Private Sub cmdGénérationPlan_Click() Dim ligne As Integer Sheets("Fiche N°4").Select
' si mesure non traité, Date : Aujourd'hui Sheets("Fiche N°4").Select MsgBox "Inscription des mesures non traités au nouveau plan", vbOKOnly +
vbInformation, "Préparation NOUVEAU PLAN "
For ligne = 3 To Sheets("Fiche N°4").Range("A3").End(xlDown).Row If Sheets("Fiche N°4").Range("J" & ligne).Value = "X" Then Sheets("Fiche N°4").Range("I" & ligne).Value = Date Sheets("Fiche N°4").Range("J" & ligne).Value = " " End If Next ligne ... end sub
Merci
Bonjour MarkoS,
Quel message d'erreur ?
Quelle est la valeur de Sheets("Plan Fiche N°4").End(xlDown).Row ?
ChrisV
"MarkoS" <philippe.babut@tiscali.fr> a écrit dans le message de
news:ubVUaorbEHA.2408@tk2msftngp13.phx.gbl...
Rebonjour,
j'dois avoir les yeux bouchés à st'heure ci !!
J'ai la macro suivante qui bloque à :
" For ligne = 3 To Sheets("Plan Fiche N°4").Range("A3").End(xlDown).Row
"
hors elle fonctionne bien pour une autre feuille similaire ???
qu'est ce qui ne va pas ?
Private Sub cmdGénérationPlan_Click()
Dim ligne As Integer
Sheets("Fiche N°4").Select
' si mesure non traité, Date : Aujourd'hui
Sheets("Fiche N°4").Select
MsgBox "Inscription des mesures non traités au nouveau plan", vbOKOnly
+
vbInformation, "Préparation NOUVEAU PLAN "
For ligne = 3 To Sheets("Fiche N°4").Range("A3").End(xlDown).Row
If Sheets("Fiche N°4").Range("J" & ligne).Value = "X" Then
Sheets("Fiche N°4").Range("I" & ligne).Value = Date
Sheets("Fiche N°4").Range("J" & ligne).Value = " "
End If
Next ligne
...
end sub
Quel message d'erreur ? Quelle est la valeur de Sheets("Plan Fiche N°4").End(xlDown).Row ?
ChrisV
"MarkoS" a écrit dans le message de news:
Rebonjour, j'dois avoir les yeux bouchés à st'heure ci !!
J'ai la macro suivante qui bloque à : " For ligne = 3 To Sheets("Plan Fiche N°4").Range("A3").End(xlDown).Row "
hors elle fonctionne bien pour une autre feuille similaire ??? qu'est ce qui ne va pas ?
Private Sub cmdGénérationPlan_Click() Dim ligne As Integer Sheets("Fiche N°4").Select
' si mesure non traité, Date : Aujourd'hui Sheets("Fiche N°4").Select MsgBox "Inscription des mesures non traités au nouveau plan", vbOKOnly +
vbInformation, "Préparation NOUVEAU PLAN "
For ligne = 3 To Sheets("Fiche N°4").Range("A3").End(xlDown).Row If Sheets("Fiche N°4").Range("J" & ligne).Value = "X" Then Sheets("Fiche N°4").Range("I" & ligne).Value = Date Sheets("Fiche N°4").Range("J" & ligne).Value = " " End If Next ligne ... end sub
