A voir également:
- Insertion ligne
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Insertion sommaire word - Guide
- Insertion liste déroulante excel - Guide
- Formulaire en ligne de meta - Guide
2 réponses
Bonjour,
Juste une question, tu veux insérer une cellule dans la colonne en question ou une ligne complète sur le classeur ?
Juste une question, tu veux insérer une cellule dans la colonne en question ou une ligne complète sur le classeur ?
Bonjour nathan,
Voici une proposition, merci de me dire si ça convient.
Voici une proposition, merci de me dire si ça convient.
Sub Inserer_ligne()
'
Dim colonne As String
Dim ligne As Long
'
colonne = "A"
'
' Désactivation de la mise à jour
Application.ScreenUpdating = False
ligne = 1
' Parcourir les lignes de 1 à 1000
While ligne < 1000
' Si la valeur de la cellule est en majuscule
If Range(colonne & ligne).Value = StrConv(Range(colonne & ligne).Value, vbUpperCase) Then
' Insérer une ligne
Rows(ligne).Insert Shift:=xlDown
ligne = ligne + 2
Else
ligne = ligne + 1
End If
Wend
'
' Réactivation de la mise à jour de l'affichage
Application.ScreenUpdating = True
'
End Sub
je cherche à insérer une ligne entière.
merci