Lecture plage et ajout ligne auto

Version imprimable

18/03/2013, 09h27
miyano

Lecture plage et ajout ligne auto

Bonjour, je cherche une macro capable de lire une plage.
si la cellule lue contient ex. "X" alors elle va rajouter une ligne à un tableau présent une autre feuille.
dans cette ligne, la première colonne contiendra la valeur d'une cellule présente sur la même ligne que celle où elle à trouvé un "X", la deuxième colonne de cette ligne contiendra l'en-tête de la colonne où se trouve "X"

D'avance merci pour vos aides et retours.
18/03/2013, 11h30
gFZT82

Bonjour,

Tu peux rechercher la cellule qui contient "X" avec la méthode Find.

Code:

Set C= Plage.Find("X",,xlValues,xlWhole)

Si cette cellule est trouvée, tu peux faire les copies connaissant les coordonnées de cette cellule (C.Row et C.Column).

Cordialement.

Bonjour,

Tout d'abord merci pour ton aide.
en fait j'étais parti sur ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, FL2 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 
    Set FL1 = Worksheets("Feuil1")
    Set FL2 = Worksheets("Feuil2")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B2:E7")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("B2:E7")
        For Each Cell In Plage
 
            'Valeur de la cellule lue
            Var1 = Cell.Value
 
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

la partie qui me manque est si var1 = "X" alors... créer une ligne dans feuil2 avec première valeur même ligne. colonne1 et deuxième valeur même colonne.ligne1
sachant qu'à chaque relance de la macro, la feuille 2 doit être entièrement réécrite.

Cordialement

Re !

toujours dans mon investigation j'ai quelques peu avancé :

Code:

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
33
34
35
36
37
38
39
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, FL2 As Worksheet, Cell As Range, Plage As Range, NoLig As Long
Dim ligne As String, colonne As String
Dim Var1, Var2
 
    Set FL1 = Worksheets("Feuil1")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B2:E7")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("B2:E7")
        For Each Cell In Plage
 
            'Valeur de la cellule lue
            Var1 = Cell.Value
            
            
            
            
                        
            If Var1 = "X" Then
                Var2 = Cell(Cell.Row, 0).Value
                'Var3 = Cell.Address
                
                Sheets("Feuil2").Select
                [A65536].End(xlUp).Select
                ActiveCell.Offset(1, 0).Select
                ActiveCell.FormulaR1C1 = Var2
            End If
                              
                             
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

cependant, la ligne Var2=... ne fonctionne pas, je voudrais qu'elle prenne la valeur de la Colonne A de la ligne ou se trouve ma cellule trouvée.

Comment faire ??

je ne pas être très loin du but !

merci d'avance

La Soluce !

j'ai fini par trouvé tout seul :

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub saisie_auto_profils()
Dim FL1 As Worksheet, FL2 As Worksheet, Cell As Range, Plage As Range, NoLig As Long
Dim nom As String, societe As String
Dim Var1, Var2, Var3
 
 
    ' se place dans feuille 2 et vide le contenu
    Sheets("Profils").Select
    Range("A2:B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Rows("3:5000").Select
    Selection.Delete Shift:=xlUp
    Range("A2").Select
    Sheets("Actifs").Select
 
    Set FL1 = Worksheets("Actifs")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B2:E7")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("Y3:BG2000")
        For Each Cell In Plage
 
 
            'Valeur de la cellule lue
            Var1 = Cell.Value
 
            'Valeur nom et société quand X trouvé
 
 
            If Var1 = "X" Then
 
                nom = Cells(Cell.Row, 5)
                societe = Cells(2, Cell.Column)
 
                'se positionne dans feuille2
                Sheets("Profils").Select
                'cherche la dernière valeur colonne A
                '[A65536].End(xlUp).Select
                'saisie la valeur nom
                ActiveCell.FormulaR1C1 = nom
                'décale d'une colonne vers la droite
                ActiveCell.Offset(0, 1).Select
                'se positionne derniere valeur colonne B
                '[B65536].End(xlUp).Select
                'décale d'une ligne vers le bas
                'ActiveCell.Offset(1, 0).Select
                'saisie la valeur societe
                ActiveCell.FormulaR1C1 = societe
                ActiveCell.Offset(1, -1).Select
                'se place sur cellule en dessous à gauche
                'retourne feuille 1
                Sheets("Actifs").Select
 
            End If
 
 
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

encore merci pour l'aide, j'espère que ce poste pourra aider d'autres personnes !