Encore du VBA excel

Résolu
enark78 -  
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
Configuration: Windows XP Internet Explorer 6.0

6 réponses

  1.  tompols Contributeur
    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" ...
    1. enark78 Auteur
      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.
      1. Bidouilleu_R
        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
        1. enark78 Auteur
          Merci à toi Ô grand Bidouilleu_R et aussi a toi tompols
          2. Bidouilleu_R
            Mais de rien ça me fait toujours plaisir de corrigé un"enark" ^_^
            1. enark78 Auteur
              Oui mais mais les enarques ne font pas souvent des bons developpeurs. M****, je suis aucun des deux ...