Discussion :

[PasdeSalade]

Bonsoir à toutes et tous.
Dans un classeur, j'ai deux feuilles.
Dans l'une j'ai une colonne "Présence" que je rend évolutive via userform (là ca marche).
Ensuite je veux reporter les éléments de cette liste dans la feuille "Ville" et celà dans la ligne 4 et dans la colonne numérotée selon la "Colonne repère".
Dans mon exemple, le contenu de F2 doit aller dans Ville!H4, F3 dans Ville!N4, etc ...
Sauf que mes colonnes sont repérées en Nombre !

J'ai fait un essai de boucle, en imbriquant 2 for/next mais c'est toujours Frédérique qui est écrit !
Si vous pouviez me corriger svp.
Merci.
Cordialement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub insert()
    Dim uligne As Integer
    Dim vcolonne As Integer
 
    'insertion des noms des amies
    Range("PListe").Select
    For uligne = 2 To Selection.Rows.Count + 1
        For vcolonne = 8 To 86 Step 6
            Sheets("Ville").Cells(4, vcolonne) = Sheets("Système").Cells(uligne, 6)
        Next vcolonne
    Next uligne
End Sub

[Invité]

Bonjour,

Une solution possible. Cette macro est à insérer dans un module standard.

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
 
Option Explicit
 
Sub InsertConseilleres()
 
Dim DerniereLigneRepere As Long, ColRepere As Long, ColPresence As Long
Dim TitreVille As Long
Dim MaPlageReperes As Range, MaCelluleReperes As Range
 
    On Error GoTo Fin
 
    With Sheets("Système")
         ColRepere = 2
         ColPresence = 6
         DerniereLigneRepere = .Cells(.Rows.Count, ColRepere).End(xlUp).Row
         If DerniereLigneRepere = 1 Then GoTo Fin
         Set MaPlageReperes = .Range(.Cells(2, ColRepere), .Cells(DerniereLigneRepere, ColRepere))
    End With
 
    With Sheets("Ville")
         TitreVille = 4
         For Each MaCelluleReperes In MaPlageReperes
             If MaCelluleReperes.Offset(0, ColPresence - ColRepere) <> "" Then
                ' Insertion des noms des conseillères
                .Cells(TitreVille, MaCelluleReperes) = MaCelluleReperes.Offset(0, ColPresence - ColRepere)
             Else
                .Cells(TitreVille, MaCelluleReperes) = ""
             End If
         Next MaCelluleReperes
    End With
 
    GoTo Fin
 
Fin:
 
    Set MaPlageReperes = Nothing
 
End Sub

[PasdeSalade]

Bonjour et merci, c'est super !!

[Invité]

Après avoir relu mon code, le test sur la colonne Présence n'est pas nécessaire.

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
 
Option Explicit
 
Sub InsertConseilleres()
 
Dim DerniereLigneRepere As Long, ColRepere As Long, ColPresence As Long
Dim TitreVille As Long
Dim MaPlageReperes As Range, MaCelluleReperes As Range
 
    On Error GoTo Fin
 
    With Sheets("Système")
         ColRepere = 2
         ColPresence = 6
         DerniereLigneRepere = .Cells(.Rows.Count, ColRepere).End(xlUp).Row
         If DerniereLigneRepere = 1 Then GoTo Fin
         Set MaPlageReperes = .Range(.Cells(2, ColRepere), .Cells(DerniereLigneRepere, ColRepere))
    End With
 
    With Sheets("Ville")
         TitreVille = 4
         For Each MaCelluleReperes In MaPlageReperes
                ' Insertion des noms des conseillères
                .Cells(TitreVille, MaCelluleReperes) = MaCelluleReperes.Offset(0, ColPresence - ColRepere)
         Next MaCelluleReperes
    End With
 
    GoTo Fin
 
Fin:
 
    Set MaPlageReperes = Nothing
 
End Sub