insertion ligne

Question

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

Gord21 · Answer

Bonjour,
Juste une question, tu veux insérer une cellule dans la colonne en question ou une ligne complète sur le classeur ?

Gord21 · Answer

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

Insertion ligne

2 réponses

Discussions similaires

Newsletters