PasteSpécial VBA
Gs93
-
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Qui pourra m'indiquer la syntaxe exacte de cette instruction,
Les lignes suivantes me renvoient à une "erreur d'execution 1004" lorsque je lance une macro Excel.
If Cells(n, 3) <> "" Then
Cells(n, 3).Activate
MsgBox ("Cellule non vide: '" & Cells(n, 3) & "'")
Application.CutCopyMode = False
MaRecherche = Cells(n, 3)
Sheets("Exploitants").Select
Columns("B:B").Select
Selection.Find(What:=MaRecherche, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Copy
Sheets("Global Machines").Select
Cells(n, 2).Activate
Application.CutCopyMode = False
ActiveSheet.PasteSpecial link:=True
Merci
Qui pourra m'indiquer la syntaxe exacte de cette instruction,
Les lignes suivantes me renvoient à une "erreur d'execution 1004" lorsque je lance une macro Excel.
If Cells(n, 3) <> "" Then
Cells(n, 3).Activate
MsgBox ("Cellule non vide: '" & Cells(n, 3) & "'")
Application.CutCopyMode = False
MaRecherche = Cells(n, 3)
Sheets("Exploitants").Select
Columns("B:B").Select
Selection.Find(What:=MaRecherche, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Copy
Sheets("Global Machines").Select
Cells(n, 2).Activate
Application.CutCopyMode = False
ActiveSheet.PasteSpecial link:=True
Merci
A voir également:
- PasteSpécial VBA
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
