Definir range dynamique
Bonjour,
je voudrai réaliser ceci :
j'ai un tableau avec 150 lignes
si la valeur de la cellule A = "bonjour" -> définir la range b:g la ligne correspondante pour appliquer le code range ci dessous.
exemple : pour 10 lignes, ligne 1 à 10
si la cellule de la colonne A1 = "bonjour" alors cellule range B1:G1
si la cellule de la colonne A2 = bonjour alors cellule range B2:G2
etc
voici mon code en exemple c'est ici que je cale pour définir la range car elle ne s'applique que sur la ligne 1.
For i = 50 To 200
If Cells(i, 1) Like "bonjour" Then
With Range("B1:g1")
.MergeCells = False
.Rows.AutoFit
DoEvents
Hauteur = Int(.RowHeight / 1.3)
.WrapText = True
.MergeCells = True
.RowHeight = Hauteur
.VerticalAlignment = xlVAlignCenter
.HorizontalAlignment = xlLeft
End With
Merci pour votre aide.
Bonjour,
Un essai ...
For i = 50 To 200
If Cells(i, 1) Like "bonjour" Then
With Range("B" & i & ":g" & i) ' < je n'ai modifié que cette ligne
.MergeCells = False
.Rows.AutoFit
DoEvents
Hauteur = Int(.RowHeight / 1.3)
.WrapText = True
.MergeCells = True
.RowHeight = Hauteur
.VerticalAlignment = xlVAlignCenter
.HorizontalAlignment = xlLeft
End Witric