Microsoft 365 Copier coller sous conditions

JiBee · 8 Novembre 2021

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 · 8 Novembre 2021

JiBee à dit:
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 · 8 Novembre 2021

JiBee à dit:
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

JiBee · 8 Novembre 2021

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

Microsoft 365 Copier coller sous conditions

JiBee

XLDnaute Nouveau

Jacky67

Jacky67

XLDnaute Barbatruc

JiBee

XLDnaute Nouveau

Discussions similaires