Encore du VBA excel
Résolu
enark78
Messages postés
491
Statut
Membre
-
enark78 Messages postés 491 Statut Membre -
enark78 Messages postés 491 Statut Membre -
Rebonjour, je souhaite savoir si la syntaxe de ce petit bout de code est bonne, Merci d'avance.
Sheets("Stats").Select
If Range("H5").Value = "P1" & Range("J4").Value = "Ok" Then
Range("J5").Select
Selection.Copy
Sheets("P1").Select
Range("N2").Select
ActiveSheet.Paste
End If
Sheets("Stats").Select
If Range("H5").Value = "P1" & Range("J4").Value = "Ok" Then
Range("J5").Select
Selection.Copy
Sheets("P1").Select
Range("N2").Select
ActiveSheet.Paste
End If
Configuration: Windows XP Internet Explorer 6.0
6 réponses
-
Rebonjour,
cette partie là est étrange : If Range("H5").Value = "P1" & Range("J4").Value = "Ok"
Range("H5").Value peut etre egale à "Ok" mais pas "P1" & Range("J4").Value puisque tu rajoutes "P1" au début du coup cette égalité sera toujours fausse...
Quel est le teste que tu souhaites réaliser ? Range("H5").Value = "P1" & Range("J4").Value teste si la valeur de la cellule J4 est égale à la valeur de la cellule H5 précédée de "P1" ... -
non, en réalité "P1" n'a rien a voir avec la cellule. Je veux que l'instruction se réalise seulement si la cellule H5 contient littéralement "P1" et si la cellule J4 contient Ok.
-
Je veux que l'instruction se réalise seulement si la cellule H5 contient littéralement "P1" et si la cellule J4 contient Ok.
If Range("H5").Value = "P1" and Range("J4").Value = "Ok" Then
Range("J5").Select -
Merci à toi Ô grand Bidouilleu_R et aussi a toi tompols
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Mais de rien ça me fait toujours plaisir de corrigé un"enark" ^_^
-
Oui mais mais les enarques ne font pas souvent des bons developpeurs. M****, je suis aucun des deux ...