Selectionner dans macro different blocs de cellules

E

Evelynetfrancois

XLDnaute Impliqué

• 23 Novembre 2006

• #2

Re : Selectionner dans macro different blocs de cellules

BONJOUR MURIEL

si j ai bien compris le probleme ????
a te lire
bonne journée

Sub prix()
Dim Cellule As Range
X = InputBox("Noter le % d'augmentation", "titre de ma boite")
If X = "" Then Exit Sub
Range("B8:U9,B11:U12,B14:U15,B17:U18,B20:U21").Select
For Each Cellule In Selection
Cellule.Value = Cellule.Value + Cellule.Value * X / 100
Next
Range("A4").Activate
End Sub

E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 23 Novembre 2006

• #3

Re : Selectionner dans macro different blocs de cellules

RE
en regardant de plus près j ai constaté que la mise en forme de tes cellules des deux dernieres lignes n'etait pas identique aux premieres...........
j ai donc corrigé cette source d'erreur
te joins le tableau corrigé

bonne journée
E et F ...

 

Pièces jointes

• MurielPrix.xls

  28.5 KB · Affichages: 45

Vote positif 0 Vote négatif

D

d.muriel

Guest

• 23 Novembre 2006

• #4

Re : Selectionner dans macro different blocs de cellules

Bonjour evelynetfrançois,

merci pour ta reponse et ta solution evelynetfrançois, c'est parfait ça marche exactement comme je le desirai.

Je suis contente de t'avoir trouvé pour me depatouiller dans mes problemes. A tres bientot pour d'autres problemes !!!

bonne fin de journée,

muriel

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 23 Novembre 2006

• #5

Re : Selectionner dans macro different blocs de cellules

Bonjour Muriel
Excuse moi de revenir sur cette macro
j y ai rajouter une déclaration de variable Dim Maval As String pour faire moins "cochon" le X ne me plaisait po
Un On Error Resume Next pour éviter un déboguage en cas de saisie de lettre dans ton inputBox par erreur
et un couple Application.ScreenUpdating false puis true pour ne pas voir a l’ écran les mouvements de macro

Sub prix()
Dim Cellule As Range
Dim Maval As String
Application.ScreenUpdating = False
On Error Resume Next
Maval = InputBox("Noter le % d'augmentation", "titre de ma boite")
If Maval = "" Then Exit Sub
Range("B8:U9,B11:U12,B14:U15,B17:U18,B20:U21").Select
For Each Cellule In Selection
Cellule.Value = Cellule.Value + Cellule.Value * Maval / 100
Next
Range("A4").Activate
Application.ScreenUpdating = True
End Sub


Si problème .............................on fera ce qu'on peut !!!
bonne soirée

E et F

 

Vote positif 0 Vote négatif

D

d.muriel

Guest

• 23 Novembre 2006

• #6

Re : Selectionner dans macro different blocs de cellules

Re-bonjour evelynetfrançois,

Je te remercie pour ton aide, encore et encore ...
Au final je vais inclure toutes les lignes dans le calcul se sera plus simple au final, donc plus besoin de chercher à ce sujet (oups...), mais par contre j'ai un nouveau casse tete... lol !!!
J'ai plusieurs feuilles dans mon classeur et je voudrais faire la calcul du pourcentage sur toutes ces feuilles et cela avec juste le bouton de la premiere feuille et avec des cellules differentes pour chacune de ces feuilles, et là je suis en manque d'inspiration total, en esperant qu tu ais encore une solution à mon probleme... je joins le fichier à ce message.

un grand merci pour ton aide et le temps que tu me consacres.

muriel

 

Pièces jointes

• prix.xls

  42 KB · Affichages: 47
• prix.xls

  42 KB · Affichages: 47
• prix.xls

  42 KB · Affichages: 48

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Novembre 2006

• #7

Re : Selectionner dans macro different blocs de cellules

Bonjour Muriel, EvelyneEtFrancois

Sans vouloir interférer E et F, juste pour info il est pratiquement jamais nécessaire d'utiliser des "select" en vba, par exemple pour votre selection, mieux vaut remplacer par le code ci dessous :

Code:

Sub test()
Dim MaPlage As Range, c As Range

Set MaPlage = Range("B8:U9,B11:U12,B14:U15,B17:U18,B20:U21")

For Each c In MaPlage
    c.Value = 1
Next c

End Sub

Bonne soirée à tous
@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 23 Novembre 2006

• #8

Re : Selectionner dans macro different blocs de cellules

BONSOIR PIERROT
non non pas d inteference !! tu plaisantes .................
je bidouille un peu sans aucunes pretentions, et j aime apprendre alors franchement , c 'est tres bien venu , merci !!!
ce qui donnerait ça alors

Sub prix()
Dim MaPlage As Range, c As Range
Application.ScreenUpdating = False
On Error Resume Next
Maval = InputBox("Noter le % d'augmentation", "titre de ma boite")
Set MaPlage = Range("B8:U9,B11:U12,B14:U15,B17:U18,B20:U21")
For Each c In MaPlage
c.Value = c.Value + c.Value * Maval / 100
Next c
Range("A4").Activate
Application.ScreenUpdating = True
End Sub

bonne soirée et merci pour ma gouverne
E et F

 

Vote positif 0 Vote négatif

D

d.muriel

Guest

• 23 Novembre 2006

• #9

Re : Selectionner dans macro different blocs de cellules

Bonsoir Messieurs,

Merci Pierrot93 et merci Evelynetfrancois ça marche parfaitement bien, vous etes des champions. En esperant que pour le calcul sur differentes feuilles cela se passe aussi bien, je cherche, je cherche mais pour ma part je suis dans les choux... lol !!!

@++

muriel

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 23 Novembre 2006

• #10

Re : Selectionner dans macro different blocs de cellules

Muriel
Dans l'esprit de pierrot je trouve ça , pour les tableaux des trois feuilles de ton classeur,

a voir ...............

E et F

 

Pièces jointes

• prix2.zip

  15 KB · Affichages: 37

Vote positif 0 Vote négatif

D

d.muriel

Guest

• 23 Novembre 2006

• #11

Re : Selectionner dans macro different blocs de cellules

Bonsoir E et F,

Je ne sais pas si c'est normal mais le fichier prix2.zip ne calcul le pourcentage que sur la feuil1, alors que sans vouloir etre trop exigeante (sic...) le but c'est que le pourcentage se fasse sur les 3 feuilles du classeur... est ce possible et si oui quelle est la solution ???

D'avance encore merci E et F pour le temps que tu me consacres en esperant que cela n'est pas trop te demander...

Bonne soirée,

muriel

 

Vote positif 0 Vote négatif

D

d.muriel

Guest

• 23 Novembre 2006

• #12

Re : Selectionner dans macro different blocs de cellules

Re re bonsoir E et F,

Oups... sorry ne tiens ma compte de mon precedent message, je me suis trompé de fichier, sincerement desolée du message precedent, ton fichier marche super bien. Merci encore merci de ton aide tu m'enleve une epine du pied, tu as realisés à ma place le code de mon classeur excel, merci et encore merci E et F pour tout...

à tres bientot pour d'autre probleme, car je sais que je vais avoir encore besoin de toi dans un proche avenir...

@++

muriel

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 24 Novembre 2006

• #13

Re : Selectionner dans macro different blocs de cellules

bonjour Muriel
Sans problemes si je peux LOL et merci aussi a pierrot93 qui nous a bien aiguillé
et c est bien là l'esprit du Forum ; aider montrer reprendre apprendre etc ...
bonne journée a tous
E et F

 

Vote positif 0 Vote négatif