Discussion :

[bastienb1]

Bonjour,
J'ai un petit problème : je voudrais copier l'intérieur d'une cellule si la cellule voisine remplie une condition, et cela pour toute une colonne. Je m'explique :
La colonne A contient des noms.
La colonne B contient soit la lettre L, soit la lettre U, soit la lettre I, soit rien.
Je voudrais faire une boucle disant :
pour toutes les cellules de la colonne B, si elles contienne la lettre U ou L, copier le nom de la cellule voisine.
J'ai un début de ligne de code :

Code :

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

if range("B1:B100).value like "L" or "U" then

Mais bon ça ne marche pas...
Merci

[JPierreM]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub sc()
Dim cellule As Range
    For Each cellule In Range("B:B")
        If cellule = "L" Or cellule = "U" Then
        cellule = cellule.Offset(0, -1)
        End If
    Next cellule
End Sub

JP

[patricktoulon]

Bonjour
quand on fait un filtrage dans une colonne il est bien plus rapide de déterminer avant la plage qui doit l'être
filtrer la colonne "b"toute entière n'est pas nécessaire a moins que tu ai toute la colonne remplie jusqu'à 65536 ligne pour excel2003 et plus pour 2007

la fonction like gère tres bien ce petit exercice

donc dans ton cas j'aurais fait comme ceci:

Code :

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

1
2
3
4
5
6
Sub sc()
    Dim cellule As Range
    For Each cellule In Range("B1:B" & Range("b" & Rows.Count).End(xlUp).Row)'on détermine la plage  en fonction de la dernière ligne utilisée 
        cellule = IIf(cellule.Value Like "[L:U]", cellule.Offset(0, 1).Value, cellule.Value)
    Next cellule
End Sub

le filtrage s'arrêtera a la dernière ligne utilisée en colonne "B"
certainement plus rapide
au plaisir