Microsoft 365 Copier coller sous conditions

JiBee

XLDnaute Nouveau
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
 
Solution
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é
VB:
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...

Jacky67

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

Discussions similaires

Réponses
4
Affichages
242