Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Macro coller des cellulles

2 réponses
Avatar
Coucou
Bonjour,

Je ne sais si c'est le bon endroit pour poser ma question.
J'ai une macro avec laquelle je copie/colle des cellules.
Cela marche mais je voudrais savoir ce que l'on doit modifier pour
avoir un avertissement quand les cellules de destination sont déjà occupées.

Voici le code que j'utilise pour coller:

Windows("clients factures.xls").Activate
Sheets("Factures").Select
Range(variable).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save

Merci de votre aide
Coucou

2 réponses

Avatar
garnote
Bonjour Coucou,

En espérant que ça puisse t'inspirer :

Sub Copie_Colle()
If IsEmpty([b1]) Then
[a1].Copy [b1]
Else
MsgBox "Il y a quelque chose en B1."
End If
End Sub

Serge
Avatar
Coucou
Bonjour,
Cela a l'air d'être une bonne idée....
Mais comme la référence cellule testée vide ou pas
est reprise dans une variable, le code suivant n' a pas l'air d'aller...


variable = Range("k32").Value
If IsEmpty([variable]) Then

Il trouve la cellule indiquée en K32 comme toujours occupée alors que ce
n'est pas le cas...
Votre avis ? Merci
Coucou

"Coucou" a écrit dans le message de news:
4445161e$0$31480$

Bonjour,

Je ne sais si c'est le bon endroit pour poser ma question.
J'ai une macro avec laquelle je copie/colle des cellules.
Cela marche mais je voudrais savoir ce que l'on doit modifier pour
avoir un avertissement quand les cellules de destination sont déjà
occupées.


Voici le code que j'utilise pour coller:

Windows("clients factures.xls").Activate
Sheets("Factures").Select
Range(variable).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > _

False, Transpose:úlse
Application.CutCopyMode = False
ActiveWorkbook.Save

Merci de votre aide
Coucou