Discussion :

[kib4h]

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 :

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

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 =)

[Menhir]

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

Code :

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

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.

[kib4h]

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

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
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

[Menhir]

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

"ClearContents" ça ne te semble pas explicite ?

[kib4h]

"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 )

[Menhir]

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.

(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.