Discussion :

[ronin.01]

Bonjour,

J'ai crée un code pour insérer une ligne avec copie des éléments de la ligne n-1. Sur la nouvelle ligne en première celllule je veux faire apparaitre une boite de dialogue pour saisir et insérer le nouveau numéro de semaine.....seulement je n'arrive pas à terminer le code.... soit il m'affichait un message d'erreur ou soit le nouveau numéro s'inserait sur toutes les cellules de la ligne.Pouvez vous m'aider ?

Par avance merci

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
27
28
29
Private Sub CommandButton1_Click()
Dim r As Integer
r = ActiveCell.Row
Rows(r).Select
If MsgBox("Voulez-vous ajouter une ligne ?", _
                    vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
Selection.Insert Shift:=xldwon
Range("a" & r - 1).Select
Selection.Copy
Range("a" & r).Select
ActiveSheet.Paste
.......
Application.CutCopyMode = False
Range("a" & r).Select
Range("q" & r - 1).Select
Selection.Copy
Range("q" & r).Select
ActiveSheet.Paste
Application.CutCopyMode = False
 
'nous allons insérer une boite de dialogue pour insérer le nouveau
'numéro de semaine
Rows(r).Select
InputBox ("Entrez le numéro de la nouvelle semaine !")
Selection.typetext ??????????
 
End If
 
End Sub

Cordialement
ronin .01

[pgz]

Bonsoir.

Pour le bout qu'il te manque

Code :

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

1
2
3
4
5
'nous allons insérer une boite de dialogue pour insérer le nouveau
'numéro de semaine
Cells(r,1) = InputBox ("Entrez le numéro de la nouvelle semaine !")string
 
End If

Quand tu utilises l'enregistreur de macros, tu enregistres tout ce que fais l'opérateur au travers de son interface du même nom. Du coup tu as des Select partout, et les objets sont désignés par Selection.
Il n'est pas bon de garder le code dans cette forme : c'est instable et très lent en exécution. Tu dois apprendre à manipuler les objets.

Les sélections et activations ne s'utilisent qu'avec le Corse et l'Arménien.

COrdialement,

PGZ

[ronin.01]

bonsoir,

Merci pour votre réponse, je vais inscrire ce code dans ma macro.

Oui je suis bien conscient de la lourdeur de ma macro.mais Je suis débutant et je cherche mes infos dans les faq, différents tutoriels du site et surtout les personnes présentes sur le site répondent à mes questions et qui m'aident beaucoups, mais certaines choses sont encore pour moi du vrai chinois !!!!!.

Cordialement
Ronin.01

[casefayere]

Bonsoir,
avec les conseils de pgz, un exemple d'épuration de code :

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
Private Sub CommandButton1_Click()
Dim r As Integer
r = ActiveCell.Row
If MsgBox("Voulez-vous ajouter une ligne ?", _
                    vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
Selection.Insert Shift:=xlDown
Range("a" & r) = Range("a" & r - 1)
'.......
Range("q" & r) = Range("q" & r - 1)
 
'nous allons insérer une boite de dialogue pour insérer le nouveau
'numéro de semaine
Cells(r, 1) = InputBox("Entrez le numéro de la nouvelle semaine !")
End If
 
End Sub

en espérant que ça t'aide !

[ronin.01]

bonjour,

Effectivement la macro s'exécute beaucoup plus vite ainsi, merci de ton aide. j' en prends bonne note.
Bonne journée.

Cordialement
ronin.01