Activer un bouton

[mathieu13950]

Bonjour,

Sur ce fichier; sur l'onglet "QUADRA" j'ai fait un bouton "ACTIVER MACRO", quand je clique dessus, la macro se lance. Puis ça s'arrete sur l'onglet "TOUS". La je dois cliquer sur le bouton "SEPARATION".
Moi j'aimerais supprimer ce bouton "separation" et incoporer le code à la suite de la macro se trouvant dans le bouton "ACTIVER LA MACRO"

Est-ce possible ?

Merci

 

[mathieu13950]

Re : Activer un bouton

Bonjour carcharodon-carcharias,

Le problème c'est que la macro est dans un onglet.

Je marque donc "call option explicite" ?

Voir dans l'onglet "Tous"

Merci

 

[job75]

Re : Activer un bouton

Rebonjour mathieu13950, salut CC,

1) Pour cette fameuse macro (c'est la mienne, vous auriez pu le rappeler) au lieu de :

Private Sub CommandButton1_Click()

Ecrivez :

Sub Separation()

2) Laissez-là dans la feuille "Tous", ça évite d'avoir à la modifier...

3) Mais pour l'appeler, écrivez :

Call Feuil3.Separation

A+

 

[mathieu13950]

Re : Activer un bouton

Rebonjour, job75.

Désolé d'avoir omis de signaler que tu étais l'auteur de cette macro.

En tout cas merci pour ton aide. ça marche super bien

A+

 

[mathieu13950]

Re : Activer un bouton

Re bonjour Job75,

Je voudrais incorporer un passage dans votre macro
Mais à quel moment dois-je le mettre ?

Dim Cel As Range
Set Cel = Worksheets("6041000").Cells(Rows.Count, 1).End(xlUp)
Cel.Offset(1, 0).Value = "TOTAUX :"
Cel.Offset(1, 1).FormulaR1C1 = "=SUM(R2C:R[-1]C)"

Cette macro marche par onglet mais quand je veux l'incorporer à la votre ça beugue au niveau de ma deuxième ligne.
Comment pourrais-je faire pour qu'à chaque fois qu'il copie les données, il rajoute "TOTAUX" en dernière ligne+1 et qu'il me fasse le total juste a coté de toute les sommes du dessus ?

Merci par avance

A+

 

[job75]

Re : Activer un bouton

Bonjour Mathieu,

1) Pour le problème posé, ajouter dans la macro en feuille "Tous" :

ligne = w.[A65536].End(xlUp)(2).Row
w.Cells(ligne, "A") = "TOTAUX :"
w.Cells(ligne, "C").Resize(, 9).FormulaR1C1 = "=SUM(R1C:R[-2]C)" 'colonnes C:K

Ne pas oubler de déclarer la variable ligne.

2) En colonne A de la feuille "Tous", les données sont numériques.

Donc pour la recherche des feuilles utiliser CStr(txt) :

If IsError(Sheets(CStr(txt)).Name) Then

Voir la macro dans la feuille "Tous".

A+

 

[mathieu13950]

Re : Activer un bouton

Bonjour,

Merci Job75 pour votre aide.

Désolé pour le temps de réponse...vacances.... ;-)