VBA Macro Copier une Ligne Selectionnée avec modif

Version imprimable

Bonjour a tous
je suis nouveau sur le forum
je débute avec VBA , voilà mon soucis ^^

j'ai créé un Bouton "Dupliquer" dans mon Tableau

et je veux Copier une Ligne que j'ai sélectionné qui comportent 12 cellules (cette premiere partie de mon code fonctionne)

maintenant je veux que mes cellules 3,4 et 5 dans la ligne qui a été copiée soient vide
j'ai rajouté : Cells(nvlLig, 3) = ""
mais mon erreur vient a partir d'ici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 Sub Dupliquer()
 
' dupliquer une ligne sélectionnée
Dim nvlLig As Long
Dim NbLigneSelec, NbLigne As Integer
 
NbLigne = Range("A" & Rows.Count).End(xlUp).Row     'n° de la dernière ligne non vide de la colonne A
NbLigneSelec = Selection.Rows.Count
 
    If NbLigneSelec = 1 Then                'détecte la ligne sélectionnée
        Selection.EntireRow.Copy            'copie la ligne selectionné
 
        Range("A" & NbLigne + 1).Select     'selectionne la ligne apres la derniere ligne du tableau
        ActiveSheet.Paste                   'colle la selection
 
        Application.CutCopyMode = False
    End If
 
    'Complète les cellules
 
    Cells(nvlLig, 3) = ""
    Cells(nvlLig, 4) = ""
    Cells(nvlLig, 5) = ""
 
End Sub

Merci d'avance pour votre Aide =)

Ton code pique un peu les yeux. Je reprends donc un peu plus que nécessaire.
Code:

1 2 3 4 Sub Dupliquer() If Selection.Rows.Count = 1 Then Selection.EntireRow.Copy Range("A" & Rows.Count).End(xlUp).Offset(1, 0) Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Resize(1, 3).ClearContents End Sub
Je n'ai pas testé, il y a donc peut-être un peu de débugage à faire.

Merci ça fonctionne , par contre je ne comprend pas a quel moment il efface les cellules x)

par contre je viens trouver l'erreur dans mon code , meme s'il "pique les yeux" , je le remet avec les explications pour ceux qui sont dans mon cas , qui auraient besoin des explications avec :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 Sub Dupliquer()
 
' dupliquer une ligne sélectionnée
Dim NbLigne As Integer
 
NbLigne = Range("A" & Rows.Count).End(xlUp).Row     'n° de la dernière ligne non vide de la colonne A
NbLigneSelec = Selection.Rows.Count
 
    If NbLigneSelec = 1 Then                'détecte la ligne sélectionnée
        Selection.EntireRow.Copy            'copie la ligne selectionné
 
        Range("A" & NbLigne + 1).Select     'selectionne la ligne apres la derniere ligne du tableau
        ActiveSheet.Paste                   'colle la selection
 
        Application.CutCopyMode = False
    End If
 
    'Complète les cellules
 
    Cells(NbLigne + 1, 3) = ""
    Cells(NbLigne + 1, 4) = ""
    Cells(NbLigne + 1, 5) = ""
 
End Sub

12/07/2018, 11h33
Menhir

Citation:

Envoyé par kib4h

je ne comprend pas a quel moment il efface les cellules x)

"ClearContents" ça ne te semble pas explicite ?
12/07/2018, 11h55
kib4h

Citation:

Envoyé par Menhir

"ClearContents" ça ne te semble pas explicite ?

si ... mais c'était a quel moment il effaçait les cellules 3,4 et 5 (et pas le reste de la ligne)
(Je rappelle que je débute dans le VBA :p )
12/07/2018, 14h55
Menhir

Citation:

Envoyé par kib4h

si ... mais c'était a quel moment il effaçait les cellules 3,4 et 5 (et pas le reste de la ligne)

Tu regardes dans l'aide VBA en ligne (qui est très bien faite) chaque élément de cette ligne de code.
Pour accéder à l'aide d'un élément, tu places simplement ton curseur sur cet élément et tu appuies sur la touche F1.

Citation:

(Je rappelle que je débute dans le VBA :p )

Par contre, en lecture je suppose que tu as une certaine expérience je suppose.
Donc, prends le temps de lire l'aide avant de demander des explications.