Discussion :

[captaincss]

Bonjour à tous,

Cela fait quelques jours que je bloque sur un petit problème de novice. Je m'explique, je suis un débutant et je voudrais :

- Changer la formule d'une cellule A appartenant à une colonne "X" si et seulement si la même cellule A d'une autre colonne "Y" est non vide.


Mon exemple :

Code :

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

1
2
3
4
5
6
Sub Macro()
 
If Range("B4") <> "" Then
    Range("C4") = "=LEFT(RC[-1],3)"
End If
End Sub

Donc, si "B4" est non vide, alors "C4" prends comme formule =GAUCHE(B4;3) (Ça peut être n'importe quelle formule en passant).


Cependant il me faut une boucle pour tester toute la colonne B et je n'y arrive pas du tout ...

Pouvez-vous m'aidez s'il vous plait ? Je vous serez grandement reconnaissant.

[jfontaine]

Bonjour,

Dans ton cas tu devrais intercepter l'evenement change de la cellule et faire ton action

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
If Target.Address = "$B$4" And Target.Value <> "" Then
    Me.Range("C4").FormulaR1C1 = "=LEFT(RC[-1],3)"
End If
 
 
End Sub

et si l'action doit se faire quelque soit la ligne

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
If Target.Column = 2 And Target.Value <> "" Then
    Target.Offset(0, 1).FormulaR1C1 = "=LEFT(RC[-1],3)"
End If
 
 
End Sub

[jfontaine]

dans le cas d'une liste déja existante, en utilisant une boucle, cela donne cela

Code :

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

1
2
3
4
5
Dim i As Long
 
For i = 2 To Me.Range("B" & Rows.Count).End(xlUp).Row
    If Me.Range("B" & i).Value <> "" Then Me.Range("C" & i).FormulaR1C1 = "=LEFT(RC[-1],3)"
Next i

[captaincss]

Merci beaucoup jfontaine pour ta réponse !

Çà fonctionne parfaitement !