Discussion :

[NESPOULOUS]

Bonjour à tous,

Je m'amuse à développer de petites applis pour moi ou mon club de rando.
Totalement amateur, j'ai besoin de votre aide.

Voila j'ai 2 feuilles, la 1er nommé "Etat" dans laquelle (colonne B à partir de B4) figure les noms a rechercher dans la 2° feuille nommé "Nom"(entre C2 et C80)
Ma fonction fonctionne correctement pour la 1er ligne. soit: Sheets("Etat").Range("b4"), mais ne "passe pas si je puis dire à la 2° ligne (c4).

Merci de bien vouloir trouver mon ou mes erreurs et si possible avec une explication

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
33
34
35
Set Plage = Sheets("Nom").Range("c2:c80")
Sheets("Etat").Activate
Nom_Etat = Sheets("Etat").Range("b4")
 
For Each Cell In Plage
    If Cell = Nom_Etat Then
        Sheets("nom").Activate
        Position = Cell.address
        Range(Position).Select
        Code = ActiveCell.Offset(0, 1).Value
        Commune = ActiveCell.Offset(0, 2).Value
        Adresse = ActiveCell.Offset(0, 3).Value
        TEL1 = ActiveCell.Offset(0, 4).Value
        TEL2 = ActiveCell.Offset(0, 5).Value
        TEL3 = ActiveCell.Offset(0, 6).Value
        Mail = ActiveCell.Offset(0, 7).Value
 
       Sheets("Etat").Activate
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Adresse
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Code
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Commune
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL1
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL2
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL3
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Mail
        ActiveCell.Offset(1, -7).Range("a1").Select
      End If
Next

[anasecu]

Bonjour

Ma fonction fonctionne correctement pour la 1er ligne... mais ne "passe pas si je puis dire à la 2° ligne (c4).

Je suppose que tu veux dire 2° ligne (B5) alors je te propose ceci :

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
Dim Cell As Range
Dim Plage As Range
Dim lig As Long
    Set Plage = Sheets("Nom").Range("C2:C80")
    Sheets("Etat").Activate
    With Sheets("Etat")
        For lig = 4 To .Cells(Rows.Count, "B").End(xlUp).Row
            For Each Cell In Plage
                If Cell.Value = .Cells(lig, "B").Value Then
                    .Cells(lig, "B").Offset(0, 1).Value = Cell.Offset(0, 3).Value
                    .Cells(lig, "B").Offset(0, 2).Value = Cell.Offset(0, 1).Value
                    .Cells(lig, "B").Offset(0, 3).Value = Cell.Offset(0, 2).Value
                    .Cells(lig, "B").Offset(0, 4).Value = Cell.Offset(0, 4).Value
                    .Cells(lig, "B").Offset(0, 5).Value = Cell.Offset(0, 5).Value
                    .Cells(lig, "B").Offset(0, 6).Value = Cell.Offset(0, 6).Value
                    .Cells(lig, "B").Offset(0, 7).Value = Cell.Offset(0, 7).Value
                    Exit For
                End If
            Next Cell
        Next lig
    End With

[vinc_bilb]

Bonjour,

C'est un peu difficile de faire la distinction entre range et cell ....
J'essairerai cependant bien:

Code :

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

For Each Cell In Plage.Cells

et n'oubliez pas: utilisez la déclaration Option Explicit en tête de module (ou mieux, par défaut)

[révèr]

Bonjour anasecu et vinc,

Cells correspond à 1 cellule en particulier et Range à une Plage de Cellule (qui peut avoir une taille de 1 -> donc une cellule)

Pourquoi ne pas utiliser la méthode Find ?

Tu boucles sur les noms comme tu le fais présentement, et si la méthode Find trouve une correspondance, tu lui demandes de t'en sortir le numéro de ligne ?

Ce que je peux te conseiller est de définir ta base de données sous forme de Tableau et non de plage de cellules. Vas sur n'importe quelle cellule de ton tableau, puis appuie sur Ctrl + * et mettre sous forme de tableau. Puis tu le renommes dans l'onglet Création qui s'est ouvert.

Tu pourras ainsi parcourir aisément ta colonne de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Wb As ThisWorkbook
Dim WbO As Worksheet
Dim t As ListObject
 
Set WbO = Wb.Sheets("Nom")
Set t = WbO.ListObjects("Nom_de_ton_tableau")
 
For Each Cell In t.ListColumns(2).DataBodyRange
'Procédure
Next Cell

[anasecu]

Bonjour,

For Each Cell In Plage.Cells

à partir du moment où 'Plage' à été défini comme un range, les éléments sont des cellules.

Cells correspond à 1 cellule en particulier

essaie de faire :

Code :

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

Cells.Select

et tu verras que l'ensemble des cellules de ton onglet sont sélectionnées.

En fait Cells ou Range sont 2 syntaxes différentes pour cibler les cellules.

Code :

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

     Set plage = Sheets("Nom").Range("C2:C80")

équivaut à

Code :

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

     Set plage = Sheets("Nom").Cells(2, 3).Resize(79, 1)

Le premier code est plus simple dans ce cas mais le second est souvent plus souple à utiliser sur des plages évolutives.

Bien entendu, la recherche peut se faire avec un 'Find' qui devrait sans doute être plus efficient car exécuté par une fonction native.

[NESPOULOUS]

Bonsoir à tous et merci d'être venu à mon secours.
J'ai finalement utilisé la méthode Rows.count pour sélectionner jusqu'à la dernière cellule des colonnes B et C de chaque feuillet, et créer un boucle autour de la boucle. ça marche super bien.

Ci-dessous ma solution.
Merci encore à tous.

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
33
34
35
36
37
38
39
40
DernLigne_Etat = Range("b" & Rows.Count).End(xlUp).Row 'dernière colonne ligne 1
DernLigne_Nom = Range("c" & Rows.Count).End(xlUp).Row 'dernière colonne ligne 1
 
Set Plage = Sheets("Nom").Range("c2:c95") '& DernLigne_Nom)
Set Plage2 = Sheets("Etat").Range("b4", "b" & DernLigne_Etat)
Sheets("Etat").Activate
 
For Each cell2 In Plage2
    For Each Cell In Plage
        If Cell = cell2 Then
        Sheets("nom").Activate
        Position = Cell.address
        Range(Position).Select
        Code = ActiveCell.Offset(0, 1).Value
        Commune = ActiveCell.Offset(0, 2).Value
        Adresse = ActiveCell.Offset(0, 3).Value
        TEL1 = ActiveCell.Offset(0, 4).Value
        TEL2 = ActiveCell.Offset(0, 5).Value
        TEL3 = ActiveCell.Offset(0, 6).Value
        Mail = ActiveCell.Offset(0, 7).Value
 
        Sheets("Etat").Activate
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Adresse
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Code
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Commune
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL1
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL2
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = TEL3
        ActiveCell.Offset(0, 1).Range("a1").Select
        ActiveCell.Value = Mail
        ActiveCell.Offset(1, -7).Range("a1").Select
      End If
    Next
Next