Discussion :

[dawood]

Hello!

J'ai 2 boutons créé dans excel, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Copier2_Click()
Call Recuperer_Click(1)
End Sub
 
Private Sub Recuperer_Click(Optional j)
instructions...
if j = 1 then
entree = Application.InputBox(prompt:="indiquer la date format jj.mm.aaaa", Title:="choisir la date", Type:=8)
jourtravail = entree
End If
instructions...
End Sub

Quand je lance le code il met une erreur de compilation. Est-ce que c'est à cause du _Click? Est-il possible de mettre 2 boutons, avec 1 qui appelle le 2e sub? J'espère être assez clair... Merci!

[fring]

Bonjour,

Pour réaliser cela, il faut mettre la procédure dans un module standard

Code :

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

1
2
3
4
5
6
7
8
sub MaProcedure(j As Integer)
instructions...
if j = 1 then
entree = Application.InputBox(prompt:="indiquer la date format jj.mm.aaaa", Title:="choisir la date", Type:=8)
jourtravail = entree
End If
instructions...
End Sub

et ensuite dans le code des boutons on appelle cette procédure

Code :

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

1
2
3
4
5
6
7
Private Sub Copier2_Click()
    MaProcedure(1)
End Sub
 
Private Sub Recuperer_Click()
    MaProcedure
End Sub

[pgz]

Bonsoir.

A mon avis, il n'y a pas de pb à appeler une procédure évènementielle à partir d'une autre procédure.

Mais dans to code, il y a des lignes "instructions..." qu'on ne voit pas.

ET il y a probablement un pb avec ton argument 'Optional j' qui modifie explicitement la description de l'évènement 'onclick'.

Je te conseille d'utiliser 2 procédures évènementielles, une pour chaque bouton, et une procédure publique que tu pourras appeler depuis les 2 évènementielles. La procédure publique pourra avoir j en paramètre.

Attention quand même, à mon avis c'est plutôt 'as integer'.

Bon courage,

PGZ

PS : désolé fring, tu fus plus rapide que moi.

[fring]

pas de problème PGZ, au contraire, tu as donné des infos complémentaires (j'ai été fainéant )

[dawood]

Merci! Ca fonctionne maintenant! Si j'ose encore abuser... j'ai un problème de copier / coller, il faudrait que je colle uniquement les valeurs + formats, sans formules. J'ai essayé ce code :

Code :

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

1
2
3
4
5
6
'Copie de la plage de cellules sur la destination
WSsource.Range(WSsource.Cells(starty, 73), WSsource.Cells(endy, 256)).Copy
'WScible.Cells(destination, 1)
WScible.Cells(destination, 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

(Qui ne fonctionne pas...)
Bonne journée!

[decondelite]

Attention: ne pas confondre la méthode Activate et la méthode Select qui n'ont rien à voir. Sinon il n'y aurait qu'une seule méthode soyons logiques.

La méthode Activate définit ton Range comme étant la "ActiveCell", tandis que Select définit ton Range comme étant la "Selection".

Faire très attention à ça: c'est porteur à confusion.

[dawood]

Salut! Merci de la réponse!

Justement, lorsque je fais un copier / coller j'ai un doute là-dessus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set WBsource = Workbooks(nomfichiersource)
Set WSsource = WBsource.Sheets(semainefeuille)
Set WBcible = Workbooks(nomfichiercible)
Set WScible = WBcible.Sheets("base")
'Copie de la plage de cellules sur la destination
WSsource.Range(WSsource.Cells(starty, 73), WSsource.Cells(endy, 256)).Select
'WScible.Cells(destination, 1)
Selection.Copy
WScible.Range(WSsource.Cells(destination, 1)).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sur la ligne WScible.Range(WSsource.Cells(destination, 1)).Activate
Il faut mettre à la place du .Activate un .Select? Que faut-il utiliser?

Merci et bonne journée!