Microsoft 365 Copier coller sous conditions

[JiBee]

Bonjour,

Je viens de créer un tableau et je souhaite copier coller une ligne à la seule condition que l'une des colonnes (la F) ne soit pas vide.
Si cette colonne est vide, j'aimerais qu'un message précise que cette cellule doit être remplie pour pouvoir réaliser le copier coller.

Merci de votre aide.

voici ma macro initiale :

' copiercoller Macro
'CopyOrigin:=xlFormatFromLeftOrAbove

'
Rows("6:6").Select
ActiveSheet.Unprotect Password:="123"
Selection.Insert Shift:=xlDown
Rows("3:3").Select
Selection.Copy
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Copy
Rows("6:6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Range("B3").Select
End Sub

 

[Jacky67]

Bonjour,

Je viens de créer un tableau et je souhaite copier coller une ligne à la seule condition que l'une des colonnes (la F) ne soit pas vide.
Si cette colonne est vide, j'aimerais qu'un message précise que cette cellule doit être remplie pour pouvoir réaliser le copier coller.

Merci de votre aide.

voici ma macro initiale :

Bonjour,
Pas certain d'avoir compris la manœuvre....
Néanmoins, ce code copie la ligne 3 et insère les valeurs en ligne 6 si F3 est complété

Sub test()
    ActiveSheet.Unprotect Password:="123"
    If [f3] = "" Then MsgBox "Merci de compléter la colonne F", vbInformation, "Information": Exit Sub
    Rows(3).Copy
    Rows(6).Insert Shift:=xlDown
    Rows(6).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Protect Password:="123", DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

 

[JiBee]

Génial !
J'ai réussi à adapter votre code à mon utilisation, cela répond tout à fait à mes attentes.
Merci Jacky67
Bonne journée