Voici mon code pour grouper des colonnes dont la ligne 9 est vide. Mon souci
est que "Columns(col & ":" & inter).Select" ne fonctionne pas car col et
inter sont des chiffres.
Merci par avance de votre aide.
Tucky
For col = 4 To 256
If Cells(9, col) = "" Then
For inter = col To col + 40
If Cells(9, inter) = "" Then
Else
inter = inter - 1
Exit For
End If
Next inter
Columns(col & ":" & inter).Select
Selection.Columns.Group
ligne = ligne - 1
Else
End If
Next col
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Range(Columns(col), Columns(inter)).Select Cordialement. Daniel "Tucky" a écrit dans le message de news:
Bonjour à tous,
Voici mon code pour grouper des colonnes dont la ligne 9 est vide. Mon souci est que "Columns(col & ":" & inter).Select" ne fonctionne pas car col et inter sont des chiffres.
Merci par avance de votre aide. Tucky
For col = 4 To 256 If Cells(9, col) = "" Then For inter = col To col + 40 If Cells(9, inter) = "" Then Else inter = inter - 1 Exit For End If Next inter Columns(col & ":" & inter).Select Selection.Columns.Group ligne = ligne - 1 Else End If Next col
Bonjour.
Range(Columns(col), Columns(inter)).Select
Cordialement.
Daniel
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de news:
0D8A24CB-9933-4559-A5E1-A668F9EA2BAF@microsoft.com...
Bonjour à tous,
Voici mon code pour grouper des colonnes dont la ligne 9 est vide. Mon
souci
est que "Columns(col & ":" & inter).Select" ne fonctionne pas car col et
inter sont des chiffres.
Merci par avance de votre aide.
Tucky
For col = 4 To 256
If Cells(9, col) = "" Then
For inter = col To col + 40
If Cells(9, inter) = "" Then
Else
inter = inter - 1
Exit For
End If
Next inter
Columns(col & ":" & inter).Select
Selection.Columns.Group
ligne = ligne - 1
Else
End If
Next col
Bonjour. Range(Columns(col), Columns(inter)).Select Cordialement. Daniel "Tucky" a écrit dans le message de news:
Bonjour à tous,
Voici mon code pour grouper des colonnes dont la ligne 9 est vide. Mon souci est que "Columns(col & ":" & inter).Select" ne fonctionne pas car col et inter sont des chiffres.
Merci par avance de votre aide. Tucky
For col = 4 To 256 If Cells(9, col) = "" Then For inter = col To col + 40 If Cells(9, inter) = "" Then Else inter = inter - 1 Exit For End If Next inter Columns(col & ":" & inter).Select Selection.Columns.Group ligne = ligne - 1 Else End If Next col
Tucky
Bonjour,
Merci pour ta réponse, maintenant tout fonctionne parfaitement.
Cordialement Tucky
Bonjour. Range(Columns(col), Columns(inter)).Select Cordialement. Daniel "Tucky" a écrit dans le message de news:
Bonjour à tous,
Voici mon code pour grouper des colonnes dont la ligne 9 est vide. Mon souci est que "Columns(col & ":" & inter).Select" ne fonctionne pas car col et inter sont des chiffres.
Merci par avance de votre aide. Tucky
For col = 4 To 256 If Cells(9, col) = "" Then For inter = col To col + 40 If Cells(9, inter) = "" Then Else inter = inter - 1 Exit For End If Next inter Columns(col & ":" & inter).Select Selection.Columns.Group ligne = ligne - 1 Else End If Next col
Bonjour,
Merci pour ta réponse, maintenant tout fonctionne parfaitement.
Cordialement
Tucky
Bonjour.
Range(Columns(col), Columns(inter)).Select
Cordialement.
Daniel
"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de news:
0D8A24CB-9933-4559-A5E1-A668F9EA2BAF@microsoft.com...
Bonjour à tous,
Voici mon code pour grouper des colonnes dont la ligne 9 est vide. Mon
souci
est que "Columns(col & ":" & inter).Select" ne fonctionne pas car col et
inter sont des chiffres.
Merci par avance de votre aide.
Tucky
For col = 4 To 256
If Cells(9, col) = "" Then
For inter = col To col + 40
If Cells(9, inter) = "" Then
Else
inter = inter - 1
Exit For
End If
Next inter
Columns(col & ":" & inter).Select
Selection.Columns.Group
ligne = ligne - 1
Else
End If
Next col
Merci pour ta réponse, maintenant tout fonctionne parfaitement.
Cordialement Tucky
Bonjour. Range(Columns(col), Columns(inter)).Select Cordialement. Daniel "Tucky" a écrit dans le message de news:
Bonjour à tous,
Voici mon code pour grouper des colonnes dont la ligne 9 est vide. Mon souci est que "Columns(col & ":" & inter).Select" ne fonctionne pas car col et inter sont des chiffres.
Merci par avance de votre aide. Tucky
For col = 4 To 256 If Cells(9, col) = "" Then For inter = col To col + 40 If Cells(9, inter) = "" Then Else inter = inter - 1 Exit For End If Next inter Columns(col & ":" & inter).Select Selection.Columns.Group ligne = ligne - 1 Else End If Next col
