Copier/coller sous une condition (cellules non vide)

[Ibrahimi]

Bonjour,

J'aimerai copier (Valeur G16) une valeur de la feuil2 puis la coller vers la feuil1 sauf si les cellules avant ( c'est à dire avant la colonne où je colle ma valeur qui est H ) ne soit pas vide dans la feuil1.
J'ai fais le copie colle mais j'ai aussi un problème car il recopie pas la valeur mais la formule.

Merci d'avance.

 

[Dranreb]

Bonjour.
Donc si la cellule à sa gauche est vide on ne fait rien, alors :

Sub Copievers1()
With Sheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
   If IsEmpty(.Offset(, -1).Value) Then .Value = Sheets("Feuil2").Range("G16").Value
   End With
End Sub

 

[Ibrahimi]

La condition doit être fait à partir de la colonne G a la feuil1 si cette colonne est vide alors on ne copie pas la valeur G16 dans la colonne H désolé si je me suis fais mal comprendre

 

[Dranreb]

Sub Copievers1()
With Sheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
   If Not IsEmpty(.Offset(, -1).Value) Then .Value = Sheets("Feuil2").Range("G16").Value
   End With
End Sub

 

[Ibrahimi]

Je comprend pas pourquoi la macro ne s'éxecute pas

 

[Dranreb]

Sub Copievers1()
   Dim Cel As Range
   Set Cel = Sheets("Feuil1").Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
   If IsEmpty(Cel.Offset(, -1).Value) Then
      MsgBox "Valeur non copiée parce que " & Cel.Offset(, -1).Address & " est vide", vbCritical
   Else
      Cel.Value = Sheets("Feuil2").Range("G16").Value
      MsgBox "Valeur copiée en " & Cel.Address, vbInformation
      End If
   End Sub

 

[Ibrahimi]

Désolé de t'embêter encore une fois mais est-ce que c'est possible d'inverse la condition c'est à dire de faire le coller juste dans les cellules ou c'est remplie

 

[Dranreb]

Je me trompe à chaque fois on dirait… Mais vous auriez aussi pu le dire comme çà dès le début car à tous les coup on se trompe en ne voulant pas ne pas faire l'inverse de ce qu'il ne faut pas faire 🙄
Ben intervertissez les codes et changer les messages.

 

[Ibrahimi]

C'est fait mais il me copie les valeurs à 558899 au lieu de 5 à 12

 

[Dranreb]

C'est vous qui aviez décidé de mettre la valeur derrière la dernière cellule renseignée de la colonne H. Je n'ai fait que suivre.