XL 2016 Inputbox Nombre et Somme

[Scorpio]

Bonjour à vous tous,
J'ai dans ce petit projet, et des macro trouvé sur le net, et comme je suis pas fortiche dans ces codes, j'aimerais si possible vous demander un peux de l'aide.
En fait, lorsque je clic sur le bouton, je saisi un nom se trouvant dans la colonne "A", et les lignes en question se colore en jaune et le nombre s'affiche en cellule "Q1"
Mais j'aimerais que le nombre et la somme s'affiche aussi dans un InputBox, si possible bien sur.
Un grand merci de votre aide et a+++++

 

[DoubleZero]

Bonjour, Scorpio, le Forum,

Une suggestion en pièce jointe.

A bientôt

 

[job75]

Bonsoir Scorpio, DoubleZero

Ecris plutôt Application.ScreenUpdating = False chère ânesse.

Pas grave, j'ai fait la même erreur il y a quelques heures

Bonne fin de soirée.

 

[Scorpio]

Bonjour à vous DoubleZero et Job75
Merci beaucoup de votre geste, c'est gentil.
A++++

 

[DoubleZero]

Bonjour à toutes et à tous,

Merci, cher jb75, d'avoir corrigé mon ânerie.

Au lieu de :

        With Range("r1")
            .FormulaR1C1 = "=SUBTOTAL(9,C[-14])"
            .Value = .Value
        End With

j'aurais pu écrire :

        Range("r1") = Application.Subtotal(9, [d:d])

A bientôt

 

[Scorpio]

Bonjour à vous tous et merci de votre aide pour mon classeur ci dessus.
J'aurais encore une demande à vous faire s'il vous plaît, car j'ai besoin de place dans les cellules ou s'affiche le nombre et le total.
J'aimerais bien avoir le nombre et total dans un par ex: MsgBox ou quelques chose y ressemblant, justement pour libérer la place sur la feuille.
Merci et a++++

 

[DoubleZero]

Re-bonjour,

Une nouvelle version en pièce jointe.

A bientôt

 

[Scorpio]

De-Salut DoubleZero
Alors ça c'est formidable, et très pratique pour la suite de mon classeur
Je te remercie beaucoup, tu es un as
A bientôt et merci DoubleZero

 

[Scorpio]

De-Salut DoubleZero
Alors ça c'est formidable, et très pratique pour la suite de mon classeur
Je te remercie beaucoup, tu es un as
A bientôt et merci DoubleZero

 

[Scorpio]

Bonsoir DoubleZero,
Dis-moi DoubleZero, j'ai juste un petit souci avec une colonne qui comporte une formule, et lorsque j'active la macro pour faire le soulignement, il ne se fait pas dans la colonne contenant la formule
Merci DoubleZero

 

[DoubleZero]

Re-bonjour,

Sous...

Range("a2:p65000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 36

... Ajouter...

Range("a2:p65000").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 36

A bientôt

 

[Scorpio]

Salut DoubleZero
Super hein, un grand merci de ton aide, ça marche bien bien bien
J'ai plus rien à dire sauf te souhaiter un très bon week end, et merci
A bientôt

 

[DoubleZero]

Re-bonjour,

Merci, Scrpio.

Bon week-end itou.

A bientôt