Réchercher une valeur et insérer une ligne au dessus

PMO2 à dit:

Re : Réchercher une valeur et insérer une ligne au dessus

Bonjour,

Une piste avec les codes suivants à copier dans un module standard
ATTENTION : faites l'essai sur une copie de votre classeur.

Code:

Sub PremiereOccurence()
Dim R As Range
Set R = ActiveSheet.[c1:c65536].Find(What:="Field Name", After:=[c65536], _
    LookAt:=xlWhole, MatchCase:=True)
If Not R Is Nothing Then Rows(R.Row).Insert
End Sub

Sub ToutesOccurences()
Dim R As Range
Dim Premier$
With ActiveSheet.[c1:c65536]
  Set R = .Find(What:="Field Name", After:=[c65536], _
    LookAt:=xlWhole, MatchCase:=True)
  If Not R Is Nothing Then
    Premier$ = R.Offset(1, 0).Address
    Do
      Rows(R.Row).Insert
      Set R = .FindNext(R)
    Loop While Not R Is Nothing And R.Address <> Premier$
  End If
End With
End Sub

1) la Sub PremiereOccurence insère une ligne vierge au-dessus de la 1ère occurence trouvée.
2) la Sub ToutesOccurences insère une ligne vierge au-dessus de toutes les occurences trouvées.
les 2 macros cherchent le mot ENTIER et sont sensibles à la casse (distinction des minuscules et des majuscules).

Cordialement.

PMO
Patrick Morange

Cliquez pour agrandir...