Additionner 4 à toutes les cellules

[Jean-François]

Bonjour à tous,

Celà fait quelques temps que je fais des recherches dans le forum ainsi que dans les utilitaires et macro, mais voilà, je n'y arrive pas.

Détail du problème:
Je reçois un fichier Excel chaque semaine avec des champs texte et monétaire. Je veux sélectionner des champs monétaire pour qu'ils soient additionnés par 4 ou 5.

Exemple : J'ai 250 $ dans une cellule, et je veux que le résultat soit 254 $

Le fichier peut-être différent d'une fois à l'autre. Les cellules monétaires ne sont pas toujours au même endroit d'une fois à l'autre.

Idéalement, j'aimerais sélectionner des cellules (avec la touche CTRL par exemple) et effectuer une fonction permettant d'additionner 4 à toutes les cellules sélectionnées.

Pour l'instant, je change les champs monétaires manuellement, ce qui est un travail très fastidieux.

Je suis loin d'être un pro d'Excel 2000, mais il me semble qu'il doit être possible d'en arriver à un tel résultat.

J'ai essayer la macro JWalk Cellmath mais j'ai droit à une erreur VB 94 pour "utilisation incorrecte de NULL"...

Merci de votre aide qui me sera très précieuse,

@+
J-F

 

[Temjeh]

Bonsoir J.F.

J'ai un bout de la réponse

Tu sélectionnes et ca ajoute quatre à chaque cell dans sélection

Sub Plus_quatre()
For Each cell In Selection
cell.Value = cell.Value + 4
Next cell
End Sub

A++

Temjeh

 

[myDearFriend]

Bonsoir Jean-François, Temjeh,


Tu peux peut-être faire un essai avec la macro suivante :

Sub Addition()
Dim Plage As Range
Dim Cellule As Range
   Application.ScreenUpdating = False
   'Détermine la plage à traiter (cellule avec valeurs numériques)
   Set Plage = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 1)
   For Each Cellule In Plage
      'Vérifie qu'il s'agit bien d'un format monétaire avec le signe "$" et ajoute 4
      If InStr(1, Cellule.NumberFormatLocal, "$", 1) > 0 Then
         Cellule.Value = Cellule.Value + 4
      End If
   Next Cellule
   Application.ScreenUpdating = True
End Sub


Cordialement.

Didier_mDF

 

[Temjeh]

Oups encore moi

Juste au cas ou il il aurais par erreur du texte dans une de tes cells ca empèche le débogeur:

Sub Plus_quatre()
On Error Resume Next
For Each cell In Selection
cell.Value = cell.Value + 4
Next cell
End Sub

Temjeh

 

[chris]

Bonjour
Solution sans macro

saisir 4 dans une cellule
Copier cette cellulle
sélectionner toutes les cellules où 4 doit être ajouté
collage spécial en cochant addition.

Chris

 

[dermience]

bien le bonjour à tous

parfait et très simple Chris

bravo et bonne journée

 

[Jean-François]

Merci à tous pour votre collaboration ! )

Effectivement, la solution de Chris est la plus simple, pour un newbie comme moi !

Merci encore,

Passez une belle journée !

J-F

 

[Temjeh]

Bravo les gars

C'est avec plusieurs ingrédients qu'on fait un gâteau

Effectivement Christ c'est trés bon ainsi que myDear sans avoir besoin de sélectionné

Temjeh