Discussion :

[doremifaso]

Bonjour,
J'ai un problème avec mon code.
Au fait, je réalise une macro avec plusieurs boutons: insérer ligne, supprimer, copier, et coller. Et j'ai des colonnes que je cache pour des raisons fonctionnelles vides.
Quand, les filtres automatiques sont désactivés, je copie, je colle ma ligne, ça marche. Par contre quant il s sont activés, le copie coller ne marche pas bien, car au fait il me colle les données dans les colonnes vides et donc il me décalle le copié de 3 colonnes (se sont les colonnes cachées).
Comment faire pour qu'il me colle dans les cellules que la copie????

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub B_COLLER_Click()
    lngLigne = ActiveCell.Row
    Range("C" & lngLigne).Select
    selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("D" & lngLigne).ClearContents
    Range("F" & lngLigne).Select
    application.CutCopyMode = False
End Sub

Merci de votre aide.

[mayekeul]

bonjour,
soit avec une selection et copie multiple,
soit prendre en coompte les ligne/colonnes cachées!

[doremifaso]

Mais comment les faire avec du code vba?
Merci

Et je ne comprends pas pourquoi le copier coller marche quand les filtres sont désactivés et ne marche pas quand ils sont activés????
Est ce que tu peux m'expliquer car je suis novice en vba.
merci

[mayekeul]

pour une copie multiple, tu fait un boucle si possble ou a chaque portion de range , un copier coller

sinon ben simplement une copie mais lorsque tu copie, prends bien en compte, qu'il copiera même les cellules cachées.. et donc, les collera aussi.

[doremifaso]

Est ce que c'est comme ça????
Il me met une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub B_COLLER_Click()
    'lngLigne = ActiveCell.Row
    Range("C:O").Select
    ActiveSheet.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R:Z").Select
    ActiveSheet.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'selection.Range("C4")PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'ActiveSheet.Paste
    Range("D" & lngLigne).ClearContents
    Range("F" & lngLigne).Select
    application.CutCopyMode = False
End Sub

[mayekeul]

laquelle et où?