Discussion :

[caswana]

Bonjour
J'ai besoin d'un bout de code a insérer dans une macro déjà existante.
Voici mon besoin:
Dans une feuille je souhaite rechercher la cellule contenant "Ra" puis inserer le nombre de lignes nécessaires pour que cette cellule se retrouve en ligne n°: 170
Ensuite faire la même chose avec Rb ligne 210, Rc ligne 255, Rd ligne 320
Il pourra arriver que certaines feuilles ne contiennent pas Ra ou Rb ou Rc ou Rd
En fait toutes les combinaisons sont possibles
Voila j'espere que c'est suffisamment clair
D'avance merci

[Theze]

Bonjour,

Une piste (sur Ra) à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim Cel As Range
    Dim I As Integer
 
    'sur la feuille active
    Set Fe = ActiveSheet
 
    'comme rien de plus précis sur la colonne, la recherche se fait
    'sur la zone utilisée dans la feuille
    Set Cel = Fe.UsedRange.Find("Ra", , xlValues, xlWhole)
 
    'si trouvée :
    If Not Cel Is Nothing Then
 
        'à condition que la cellule soit plus haut que la ligne 170
        If Cel.Row < 170 Then
 
            'insère le nombre de ligne nécessaire
            For I = Cel.Row To 169
 
                Cel.EntireRow.Insert
 
            Next I
 
        End If
 
    End If
 
End Sub

Hervé.