Utiliser des plages numériques non contigues

[ninie95]

Bonjour à tous,

j'utilise les macros depuis quelques mois et me voila confrontée un un cas assé complexe.😀


J'ai un tableau (ci joint) dans le quel je retrouve des données en caractère et numérique.
je souhaiterais faire +4% à toutes les cases qui sont en numériques, sachant que ces données peuvent se trouver dans toute la feuille et qu'elles ne sont pas contigues.
J'espère avoir été claire dans ma demande et que quelqu'un pourra m'aider car mon boss commence à me courrir sur le caillou😱

 

[Efgé]

Re : Utiliser des plages numériques non contigues

Re à tous, Bonjour Roger,
De mon coté je vois pas de problème (Excel 2003).
J'ai déplacé ma proposition dans un bouton, et rien d'autre. Voir l'exemple.
Cordialement

 

[Guest]

Re : Utiliser des plages numériques non contigues

Re, inie,

Ben je vois pas.Il faudrait la feuille ou le classeur pour comprendre ce qui se passe.🙄


A+

 

[ninie95]

Re : Utiliser des plages numériques non contigues

Il y a quelqu'un?

help pour une jeune fille en train de se noyer avec sa macro

 

[ninie95]

Re : Utiliser des plages numériques non contigues

Avec le bouton ça marche nikel!!!!!
merci efgé... Pourrais je pousser le bouchon un peu plus loin et vous demander si le taux peux etre damndé par une invite?

Merci, merci, merci

 

[Efgé]

Re : Utiliser des plages numériques non contigues

Re
Une nouvelle proposition avec boite de dialogue:

[COLOR=BLUE]Private Sub[/COLOR] CommandButton1_Click()
Deb:    Var = InputBox("Entrez le taux")
[COLOR=BLUE]If[/COLOR] Var = "" [COLOR=BLUE]Then Exit Sub[/COLOR]
[COLOR=BLUE]While Not[/COLOR] IsNumeric(Var)
    [COLOR=BLUE]GoTo[/COLOR] Deb
[COLOR=BLUE]Wend[/COLOR]
[COLOR=BLUE]For Each[/COLOR] c [COLOR=BLUE]In[/COLOR] Sheets("1a01").UsedRange
    [COLOR=BLUE]If[/COLOR] c.Value <> "" [COLOR=BLUE]And[/COLOR] IsNumeric(c) [COLOR=BLUE]Then[/COLOR] c.Value = c.Value + c.Value / 100 * Var
[COLOR=BLUE]Next[/COLOR] c
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

 

[ninie95]

Re : Utiliser des plages numériques non contigues

Un seul mot GENIAL.

Merci beaucoup à tous pour vos conseils bon courage à tous...

@+ pour de nouvelles aventures