Discussion :

[White212]

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 :

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

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

[ouskel'n'or]

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 :

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

MsgBox Range("BA1").Column

idem pour les autres.

Code :

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

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)

[White212]

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é.

[ouskel'n'or]

"Une" solution :

Code :

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

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

[White212]

Je te remerci pour ton aide