Else sans If

[AKSooL]

j ai ce code , et il me mets toujours Else sans if , comprend pas

With Sheets("Résultats")
For k = 4 To 7500
If .Cells(k, 19) <> "" Then Sheets("Demande").Cells(k, 23).Value = "FINI"
Else
If .Cells(k, 15) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En Vérification"
Else
If .Cells(k, 14) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En cours"
Else
If .Cells(k, 11) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En Attente"
Else Sheets("Demande").Cells(k, 23).Value = ""
End If
End If

End If
End If

Next
End With



merci

 

[excalibur]

Re : Else sans If

bonjour AKSooL le forum peut etre comme cela

Sub LeTem()
With Sheets("Résultats")
For k = 4 To 7500
If .Cells(k, 19) <> "" Then Sheets("Demande").Cells(k, 23).Value = "FINI"
If .Cells(k, 15) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En Vérification"
If .Cells(k, 14) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En cours"
If .Cells(k, 11) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "En Attente"
Else
Sheets("Demande").Cells(k, 23).Value = ""
End If
Next
End With
End Sub

 

[Evelynetfrancois]

Re : Else sans If

bonjour AKSooL
voila qui devrait aller mieux

With Sheets("feuil1")
For k = 4 To 7500
If .Cells(k, 19) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "FINI"
Else
If .Cells(k, 15) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "En Vérification"
Else
If .Cells(k, 14) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "En cours"
Else
If .Cells(k, 11) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "En Attente"
Else: Sheets("Demande").Cells(k, 23).Value = ""
End If
End If
End If
End If
Next
End With


E et F
bonjour excalibur pas rafraichi

 

[Papou-net]

Re : Else sans If

Bonjour AKSooL,

Essaies de modifier ton code ainsi :

With Sheets("Résultats")
For k = 4 To 7500
  Sheets("Demande").Cells(k, 23).Value = ""
  If .Cells(k, 19) <> "" Then Sheets("Demande").Cells(k, 23).Value = "FINI"
  If .Cells(k, 15) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En Vérification"
  If .Cells(k, 14) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En cours"
  If .Cells(k, 11) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En Attente"
Next
End With

Espérant avoir répondu.

Cordialement.

 

[AKSooL]

Re : Else sans If

Merci ca marche mais au peril de Excel
car pour mon fichier est lourd a la base, et ce code finalement , verifie les 7500 lignes pour mettre a jour , donc non

J avais essayé ca , mais il me mets toujours fini qd je clique sur la cellule,

If Not Intersect(Target, Range("S4:S7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "fini"
Else
If Not Intersect(Target, Range("o4😱7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "en verif"
Else
If Not Intersect(Target, Range("n4:n7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "en cours"
Else
If Not Intersect(Target, Range("k4:k7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "en attente"
Else
Sheets("demande").Cells(Target.Row, 23) = ""
End If
End If
End If
End If

 

[tototiti2008]

Re : Else sans If

Bonjour à tous,

moi je ferais plutôt comme ça :

With Sheets("Résultats")
For k = 4 To 7500
If .Cells(k, 19) <> "" Then 
Sheets("Demande").Cells(k, 23).Value = "FINI"
ElseIf .Cells(k, 15) <> "" Then 
Sheets("Demande").Cells(k, 23).Value = "En Vérification"
ElseIf .Cells(k, 14) <> "" Then 
Sheets("Demande").Cells(k, 23).Value = "En cours"
ElseIf .Cells(k, 11) <> "" Then 
Sheets("Demande").Cells(k, 23).Value = "En Attente"
Else 
Sheets("Demande").Cells(k, 23).Value = ""
End If
Next
End With

 

[AKSooL]

Re : Else sans If

Merci ca marche mais au peril de Excel
car pour mon fichier est lourd a la base, et ce code finalement , verifie les 7500 lignes pour mettre a jour , donc non

J avais essayé ca , mais il me mets toujours fini qd je clique sur la cellule,

If Not Intersect(Target, Range("S4:S7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "fini"
Else
If Not Intersect(Target, Range("o4😱7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "en verif"
Else
If Not Intersect(Target, Range("n4:n7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "en cours"
Else
If Not Intersect(Target, Range("k4:k7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "en attente"
Else
Sheets("demande").Cells(Target.Row, 23) = ""
End If
End If
End If
End If

c est uniquement qd je clique sur la cellule , par exemple la S4 de l onglet resultat , qu il me met FINI dans onglet demande

 

[AKSooL]

Re : Else sans If

J ai trouvé ( en tout cas ca marche )
dans feuille resultat , j ai ce code

If Not Intersect(Target, Range("N4:N7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "En Cours"
Else
If Not Intersect(Target, Range("o4😱7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "En Verif"
Else
If Not Intersect(Target, Range("S4:S7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "FINI"




End If
End If
End If

et dans feuille demande j ai ca

If Not Intersect(Target, Range("T4:T7500")) Is Nothing Then
If Target <> "" Then Sheets("demande").Cells(Target.Row, 23) = "En Attente"
End If


dans les evenements change

et ca marche