Discussion :

[Nahtalie]

Bonjour,

Voila j'ai un fichier avec des données sur Excel 2007 (dans mon exemple : Colonne "Coefficient"), et je souhaiterais que la macro change tous les coefficients et les mettent à 0,99 par exemple.

En fait, il faut qu'elle soit assez souple pour que je puisse me positionner dans la colonne que je veux et mettre partout une valeur choisie.

Quand la cellule est "vide" elle la laisse vide et quand il y a un nombre elle le change par celui que je choisis, et elle balaie toute la colonne tant qu'il y a des chiffres (mon exemple c'est juste un extrait pour illustrer).

Bon j'espère être claire, si quelqu'un veut bien avoir la gentillesse de m'envoyer la macro, d'avance merci.

Nat

[jfontaine]

Bonjour,

Ci dessous un exemple de code que tu pourras améliorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub modif()
 
Dim Coef As Double
Dim Rg As Range
 
Coef = InputBox("Saisir la valeur de remplacement")
 
For Each Rg In Range(Cells(5, ActiveCell.Column), Cells(32, ActiveCell.Column))
    If Rg.Value <> "" Then Rg.Value = Coef
Next
 
End Sub

[Nahtalie]

Merci Jérôme, je teste ça de suite.