XL 2016 Inputbox Nombre et Somme

DoubleZero

XLDnaute Barbatruc

• 5 Mai 2017

• #2

Bonjour, Scorpio, le Forum,

Une suggestion en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - Scorpio - Sommes.xlsm

  28.6 KB · Affichages: 32

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Mai 2017

• #3

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.

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Mai 2017

• #4

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Mai 2017

• #5

Bonjour à toutes et à tous,

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

Au lieu de :

VB:

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

j'aurais pu écrire :

VB:

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

A bientôt

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Mai 2017

• #6

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Mai 2017

• #7

Re-bonjour,

Une nouvelle version en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - Scorpio - Sommes v2.xlsm

  24.5 KB · Affichages: 41

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Mai 2017

• #8

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Mai 2017

• #9

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Mai 2017

• #10

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Mai 2017

• #11

Re-bonjour,

Sous...

VB:

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

... Ajouter...

VB:

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

A bientôt

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Mai 2017

• #12

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Mai 2017

• #13

Re-bonjour,

Merci, Scrpio.

Bon week-end itou.

A bientôt

 

Vote positif 0 Vote négatif