Insertion ligne
nathan
-
Gord21 Messages postés 928 Statut Membre -
Gord21 Messages postés 928 Statut Membre -
Bonjour,
Je souhaite créer une macro qui dans une colonne précise, repère chaque cellule contenant un objet en majuscule et qui insère au dessus une ligne.
Merci d'avance
Je souhaite créer une macro qui dans une colonne précise, repère chaque cellule contenant un objet en majuscule et qui insère au dessus une ligne.
Merci d'avance
Configuration: Windows XP / Internet Explorer 6.0
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 ?
-
Bonjour nathan,
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
