Salut a tous
 
Un petit problème pour certain  
Pour moi dur dur
 
Voila une partie de ma macro
 
 
premier = Sheets("feuille1" ).Range("A1" ).Value
Résultat = premier
Sheets("feuille2" ).Range("D4" ).Value = Résultat
 
Copie la cellule A1 de la feuille1
Sur la feuille2 en cellule D4
 
Ok
 
Mais je voudrais que si la cellule A1 de la feuille1 et vierge  
Je voudrais copie la cellule H5 de la feuille1 en feuille2 cellule D4
 
En résumé copié la cellule A1 ou la cellule H5 de la feuille1
En cellule D4 de la feuille2
 
 
Merci d'avance pour vos réponses
Et d'avoir pris le temps de lire ce message
 
 
Aiglon74

Bonsoir,
 
proposition :
 
With Sheets("Feuil1" )
    If .[A1] <> "" Then Sheets("feuil2" ).[D4] = .[A1] Else Sheets("feuil2" ).[D4] = .[h5]
End With
 
cordialement

salut  
 
la proposition est bonne mais au lieu de faire le test sur "", utilise la propriété IsEmpty qui est plus rigoureuse car "" peut signifier que ta cellule contient une chaine (string) de longueur nulle et dc que ta cellule n'est pas vide. avec IsEmpty, tu pourras tt tester.
 
d'où:
 
with worksheets("Feuil1" )
    if IsEmpty(.range("A1" )) then  'si c'est vide IsEmpty renvoie true
         worksheets("Feuil2" ).range("D4" )=.range("H5" )
    else
         worksheets("Feuil2" ).range("D4" )=.range("A1" )
    end if
end with
 
a+