PB valeur de colonne

Bonjour à tous,

Mon pb n'est surment pas compliqué mais j'avou ne pas avoir trouvé de solution... lol

j'ai fai ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub mise_en_page() Z = 3 i = 1   debut: Mac = Chr(65 + Z) If Range(Mac & "1").Value = "" Then Do Until i > 5 Range(Mac & "1").Select Range(Mac & i).Select Selection.ClearContents i = i + 1 Loop Else Z = Z + 1 GoTo debut End If i = 1 Z = Z + 1 If Range(Mac & "1").Value = "" Then GoTo debut If Mac.Value = "BA" Then GoTo fin   fin: Range("A2").Select End Sub

---

(désolé pour la mise en page si je me sui loupé)

le problème est que quand la valeur :
range (Mac & "1").value="["
la macro plante, elle plante car je depasse la colonne Z
si vous avez une idée pour pouvoir franchir la colonne Z

merci d'avance

Sans régler ton problème car je n'ai pas compris ce que tu veux faire, évite les boucles utilisant des "goto", réservés pour les gestions d'erreurs. Tu peux avantageusement les remplacer par une double boucle
Par ailleurs, remplace Range(Mac +z & NoLig) par Cells(NoLig, NoCol)
On sait que la colonne BA est la colonne 53 en faisant simplement

Code:

---

MsgBox Range("BA1").Column

---

idem pour les autres.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub mise_en_page() Dim z As Integer, i As Integer z = 3 i = 1 Do If Cells(1, 1 + z).Value = "" Then Do Until i > 5 'Cells(1, 1 + z).Select Cells(1, 1 + z).ClearContents i = i + 1 Loop i = 1 z = z + 1 Else z = z + 1 End If Loop While (Cells(1, 1 + z).Value = "") And (1 + z <= 53) End Sub

---

Que veux-tu faire (en français, pas en code) ;)

Je voudrai éffacer ce qu'il ce trouve dans les colonnes apres la fin de mon tableau en prennant la première case vide de la ligne 1 trouvé

admettons que ce qui suis est le tableau

A b c d e ...
1. xxx xxx xxx xxx ...
2. 1 1 1 1 1 ...

en faite les données déborde du tableau c'est celle ci que je voudrai effacé.

"Une" solution :

Code:

---

1 2 3 4 5 6 7 8

Dim Derlig as long, DerColLig1 as integer, DerColFin as integer 'Dernière ligne renseignée de la feuille de calculs Derlig = Split(Worksheets("feuil1").UsedRange.Address, "$")(4) 'Dernière colonne de la ligne 1 DerColLig1 = Worksheets("feuil1").Cells(1, Rows(1).Columns.Count).End(xlToLeft).Column 'Dernière colonne renseignée de la feuille de calculs DerColFin = Cells(1, Split(Worksheets("feuil1").UsedRange.Address, "$")(3)).Column Range(Cells(1, DerColLig1 + 1), Cells(Derlig, DerColFin)).ClearContents

---

Bon après-midi

Je te remerci pour ton aide ;)