Macro "Augmentation % sur plusieurs colonnes

Bonsoir Tibert,

Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette manière
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélection
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.


La valeur du coefficient entre dans la cellule C1 est en pourcentage

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(5, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(5, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(5, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(5, 16) = Cells(5, 16) * 1+coef
Cells(5, 21) = Cells(5, 21) * 1+coef
Cells(5, 26) = Cells(5, 26) * 1+coef
Cells(5, 31) = Cells(5, 31) * 1+coef
End Sub

Cependant, il vaudrait mieux inscrire le résultat des calculs dans la
ligne en dessous des valeurs originales et la macro deviendrait :
Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette manière
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélection
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(6, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(6, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(6, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(6, 16) = Cells(5, 16) * 1+coef
Cells(6, 21) = Cells(5, 21) * 1+coef
Cells(6, 26) = Cells(5, 26) * 1+coef
Cells(6, 31) = Cells(5, 31) * 1+coef
End Sub

Un peu simpliste mais ça marche.

Bonjour ;
J'aurais souhaiter un peut d'aide pour faire une macro, j'ai 6 colonnes ou
sont porter des chiffres de ( F5 à AE5 ) et en me servant d'une cellule qui
seras (A5) quand je rentrerais dans cette cellule soit 5% ou 10% que sa
augmentent tout ces chiffres qui se trouvent dans ces colonnes de 5% ou 10%.
Salutations


A5 F5 K5 P5 U5 Z5 AE5

5% Lundi Mardi Mercredi Jeudi Vendredi Samedi
1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€

Il y a aussi beaucoup plus simple et il suffit de placer sur la ligne
inférieure des des valeur la formule .... =F5 * $A$3 et ainsi dans
chaque cellule.

Bonsoir Tibert,

Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette manière
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélecti on
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.


La valeur du coefficient entre dans la cellule C1 est en pourcentage

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(5, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(5, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(5, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(5, 16) = Cells(5, 16) * 1+coef
Cells(5, 21) = Cells(5, 21) * 1+coef
Cells(5, 26) = Cells(5, 26) * 1+coef
Cells(5, 31) = Cells(5, 31) * 1+coef
End Sub

Cependant, il vaudrait mieux inscrire le résultat des calculs dans la
ligne en dessous des valeurs originales et la macro deviendrait :
Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette manière
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélecti on
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(6, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(6, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(6, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(6, 16) = Cells(5, 16) * 1+coef
Cells(6, 21) = Cells(5, 21) * 1+coef
Cells(6, 26) = Cells(5, 26) * 1+coef
Cells(6, 31) = Cells(5, 31) * 1+coef
End Sub

Un peu simpliste mais ça marche.

Bonjour ;
J'aurais souhaiter un peut d'aide pour faire une macro, j'ai 6 colonnes ou
sont porter des chiffres de ( F5 à AE5 ) et en me servant d'une cellu le qui
seras (A5) quand je rentrerais dans cette cellule soit 5% ou 10% que sa
augmentent tout ces chiffres qui se trouvent dans ces colonnes de 5% o u 10%.
Salutations


A5 F5 K5 P5 U5 Z5 AE5

5% Lundi Mardi Mercredi Jeudi Vendredi Samedi
1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€

Décidément Tibert je dois encore te présenter mes excuses car il y a
une petite erreur dans
la macro, il faut des parenthèses voici :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(6, 1) = Cells(5, 1) * (1+coef): 'A5
Cells(6, 6) = Cells(5, 6) * (1+coef): 'F5
Cells(6, 11) = Cells(5, 11) * (1+coef): 'K5
Cells(6, 16) = Cells(5, 16) * (1+coef)
Cells(6, 21) = Cells(5, 21) * (1+coef)
Cells(6, 26) = Cells(5, 26) * (1+coef)
Cells(6, 31) = Cells(5, 31) * (1+coef)
End Sub

Enfin si tu veux toujours une macro !!!

Il y a aussi beaucoup plus simple et il suffit de placer sur la ligne
inférieure des des valeur la formule .... =F5 * $A$3 et ainsi dans
chaque cellule.

Bonsoir Tibert,

Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette maniè re
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélec tion
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.


La valeur du coefficient entre dans la cellule C1 est en pourcentage

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(5, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(5, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(5, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(5, 16) = Cells(5, 16) * 1+coef
Cells(5, 21) = Cells(5, 21) * 1+coef
Cells(5, 26) = Cells(5, 26) * 1+coef
Cells(5, 31) = Cells(5, 31) * 1+coef
End Sub

Cependant, il vaudrait mieux inscrire le résultat des calculs dans la
ligne en dessous des valeurs originales et la macro deviendrait :
Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette maniè re
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélec tion
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(6, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(6, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(6, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(6, 16) = Cells(5, 16) * 1+coef
Cells(6, 21) = Cells(5, 21) * 1+coef
Cells(6, 26) = Cells(5, 26) * 1+coef
Cells(6, 31) = Cells(5, 31) * 1+coef
End Sub

Un peu simpliste mais ça marche.

Bonjour ;
J'aurais souhaiter un peut d'aide pour faire une macro, j'ai 6 colonn es ou
sont porter des chiffres de ( F5 à AE5 ) et en me servant d'une cel lule qui
seras (A5) quand je rentrerais dans cette cellule soit 5% ou 10% que sa
augmentent tout ces chiffres qui se trouvent dans ces colonnes de 5% ou 10%.
Salutations


A5 F5 K5 P5 U5 Z5 AE5

5% Lundi Mardi Mercredi Jeudi Vendredi Samedi
1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€

Je te remercie j’ai bien vu que cela me poser quelques problèmes mais j’y
suis arriver en partant de ton code et sa fonctionne en faisant le code
ci-dessous, sachant que les colonnes sont différente car j’ai reporter le
calcul sur une autre feuille.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value

Cells(5, 2) = Cells(4, 2) * coef: 'Lundi
Cells(5, 3) = Cells(4, 3) * coef: 'Mardi
Cells(5, 4) = Cells(4, 4) * coef: 'Mercredi
Cells(5, 5) = Cells(4, 5) * coef: 'Jeudi
Cells(5, 6) = Cells(4, 6) * coef: 'Vendredi
Cells(5, 7) = Cells(4, 7) * coef: 'Samedi

End Sub

Mercie

Décidément Tibert je dois encore te présenter mes excuses car il y a
une petite erreur dans
la macro, il faut des parenthèses voici :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(6, 1) = Cells(5, 1) * (1+coef): 'A5
Cells(6, 6) = Cells(5, 6) * (1+coef): 'F5
Cells(6, 11) = Cells(5, 11) * (1+coef): 'K5
Cells(6, 16) = Cells(5, 16) * (1+coef)
Cells(6, 21) = Cells(5, 21) * (1+coef)
Cells(6, 26) = Cells(5, 26) * (1+coef)
Cells(6, 31) = Cells(5, 31) * (1+coef)
End Sub

Enfin si tu veux toujours une macro !!!

Il y a aussi beaucoup plus simple et il suffit de placer sur la ligne
inférieure des des valeur la formule .... õ * $A$3 et ainsi dans
chaque cellule.

Bonsoir Tibert,

Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette manière
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélection
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.


La valeur du coefficient entre dans la cellule C1 est en pourcentage

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(5, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(5, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(5, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(5, 16) = Cells(5, 16) * 1+coef
Cells(5, 21) = Cells(5, 21) * 1+coef
Cells(5, 26) = Cells(5, 26) * 1+coef
Cells(5, 31) = Cells(5, 31) * 1+coef
End Sub

Cependant, il vaudrait mieux inscrire le résultat des calculs dans la
ligne en dessous des valeurs originales et la macro deviendrait :
Je réponds à ta demande en plaçant ici une macro simple te
permettant de réaliser les calcul de %. Mais attention, cette manière
de faire te fait perdre tes données originales. Voici la macro qu'il
faudrait placer sur la feuille de tes données. Pour ce faire, tu
clique sur l'onglet de la feuille et dans la fenêtre de dialogue qui
s'ouvre tu sélectionne «visualiser le code», tu change la sélection
General pour faire apparaitre Worksheet et tu recopies la macro
ci-dessous.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coef = Cells(3, 1).Value
'A5 F5 K5 P5 U5 Z5 AE5
Cells(6, 1) = Cells(5, 1) * 1+coef: 'A5
Cells(6, 6) = Cells(5, 6) * 1+coef: 'F5
Cells(6, 11) = Cells(5, 11) * 1+coef: 'K5
Cells(6, 16) = Cells(5, 16) * 1+coef
Cells(6, 21) = Cells(5, 21) * 1+coef
Cells(6, 26) = Cells(5, 26) * 1+coef
Cells(6, 31) = Cells(5, 31) * 1+coef
End Sub

Un peu simpliste mais ça marche.

Bonjour ;
J'aurais souhaiter un peut d'aide pour faire une macro, j'ai 6 colonnes ou
sont porter des chiffres de ( F5 à AE5 ) et en me servant d'une cellule qui
seras (A5) quand je rentrerais dans cette cellule soit 5% ou 10% que sa
augmentent tout ces chiffres qui se trouvent dans ces colonnes de 5% ou 10%.
Salutations


A5 F5 K5 P5 U5 Z5 AE5

5% Lundi Mardi Mercredi Jeudi Vendredi Samedi
1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€ 1200,00€