Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copier coller la ligne sauf 2 cellules

Copier coller la ligne sauf 2 cellules

2 réponses
Avatar
Alba
Bonjour,

C'est un peu b=EAte surement mais je ne trouve pas :

Je veux copier coller ma ligne et j'ai ceci qui est parfait

Private Sub CommandButton1_Click()

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=3DxlDown

End Sub

Mais je ne veux pas qu'il copie ce qu'il y a dans la cellule E ni dans
la cellule H

.=2E..........Donc il me manque un =E9pisode ! Si quelqu'un pouvait me le
pr=EAter ce serait gentil

Bon dimanche
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Elliac
Bonjour,

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
a = ActiveCell.Row
Cells(a, 5).ClearContents
Cells(a, 8).ClearContents

Camille

"Alba" wrote:

Bonjour,

C'est un peu bête surement mais je ne trouve pas :

Je veux copier coller ma ligne et j'ai ceci qui est parfait

Private Sub CommandButton1_Click()

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown

End Sub

Mais je ne veux pas qu'il copie ce qu'il y a dans la cellule E ni dans
la cellule H

.............Donc il me manque un épisode ! Si quelqu'un pouvait me le
prêter ce serait gentil

Bon dimanche




Avatar
Alba
Merci beaucoup Camille

On 3 déc, 14:47, Elliac wrote:
Bonjour,

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
a = ActiveCell.Row
Cells(a, 5).ClearContents
Cells(a, 8).ClearContents

Camille

"Alba" wrote:
Bonjour,

C'est un peu bête surement mais je ne trouve pas :

Je veux copier coller ma ligne et j'ai ceci qui est parfait

Private Sub CommandButton1_Click()

ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown

End Sub

Mais je ne veux pas qu'il copie ce qu'il y a dans la cellule E ni dans
la cellule H

.............Donc il me manque un épisode ! Si quelqu'un pouvait me le
prêter ce serait gentil

Bon dimanche