Salut le forum,
Je vous pris de m'excuser d'avance pour mon faible niveau en VBA qui m'oblige à vous appeler à l'aide pour un problème tout bête.
J'explique le but de la macro: J'ai une feuille contenant différentes tables (non nommées), comportant toutes le même en-tête en colonne A et une cellule vide avant le prochain tableau. Je dois sélectionner les cellules à l'intérieur de chaque table pour leur affecter un tri.
Le problème c'est que je n'arrive pas à les sélectionner dans une boucle, je repère l'en-tête, la dernière ligne de la table et je sélectionne le tout (c'est là que ça bloque), j'applique ensuite un fond bleu pour avoir une confirmation visuelle que ma sélection est bonne j'appliquerai les tris dans un second temps.
Le code:
Je pense que c'est tout bête mais j'ai modifié dans tous les sens je ne comprend pas pourquoi ça plante sur la ligne:
Mon "X" est-il mal défini?
Merci d'avance,
Mathar
Je vous pris de m'excuser d'avance pour mon faible niveau en VBA qui m'oblige à vous appeler à l'aide pour un problème tout bête.
J'explique le but de la macro: J'ai une feuille contenant différentes tables (non nommées), comportant toutes le même en-tête en colonne A et une cellule vide avant le prochain tableau. Je dois sélectionner les cellules à l'intérieur de chaque table pour leur affecter un tri.
Le problème c'est que je n'arrive pas à les sélectionner dans une boucle, je repère l'en-tête, la dernière ligne de la table et je sélectionne le tout (c'est là que ça bloque), j'applique ensuite un fond bleu pour avoir une confirmation visuelle que ma sélection est bonne j'appliquerai les tris dans un second temps.
Le code:
Code:
Sub SelectionTest()
Dim Y As Integer
With ActiveSheet
Y = Range("A65536").End(xlUp).Row
End With
Dim Z As Long
Dim X As Long
For Z = 1 To Y
If Range("A" & Z) = "En-tête1" Then _
X = Range("A" & Z).End(xlDown).Row
Range("A" & (Z - 2) & ":R" & X).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next Z
End Sub
Je pense que c'est tout bête mais j'ai modifié dans tous les sens je ne comprend pas pourquoi ça plante sur la ligne:
Code:
Range("A" & (Z - 2) & ":R" & X).Select
Mon "X" est-il mal défini?
Merci d'avance,
Mathar
Dernière édition: