Copier/coller sous une condition (cellules non vide)

Ibrahimi

XLDnaute Nouveau
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.
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Bonjour.
Donc si la cellule à sa gauche est vide on ne fait rien, alors :
VB:
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
VB:
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
 

Dranreb

XLDnaute Barbatruc
VB:
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

XLDnaute Nouveau
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
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
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 :rolleyes:
Ben intervertissez les codes et changer les messages.
 

Dranreb

XLDnaute Barbatruc
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.
 

Discussions similaires


Haut Bas