Discussion :

[amanda33110]

Bonjour à tous,

J'aurais besoin d'aide pour mettre en place une macro sur mon fichier.. mes compétences ne sont pas suffisantes, j'arrive juste à sélectionner les cellules souhaitées et les recopier à un endroit.

Dans le fichier joint,sur mon onglet "Stat PE", à chaque fois que je renseigne une ligne et que je choisis en colonne I dans ma liste de valeur "RN". je voudrais que les informations des cellules C, D, E et F de la ligne en question se recopie dans l'onglet "Candidats à inviter en SR" en cellule C mais il faut que les cellules A et B de chacune des deux feuilles sont identiques et que la cellule C soit vide.

Un grand merci pour votre aide.

Suivi PE..xlsx

Amanda

[Zeabon]

Bonjour à toi,


Je ne suis pas sûr d'avoir compris toutes les subtilité de ton sujet, mais je vais te donner un début de solution.

- Quand tu dis colonne C vide, tu parle bien de la feuille Candidats ... ? (si oui alors c'est ok)
- Tu ne testes pas si ton candidat une croix en C avant de copier ? (Pas dit, pas mis)
- Je me suis contenté d'un simple copié/coller, donc attention à la mise en page qui suis. Ca écrase les couleurs déjà présente dans les cellules réception.

Une amélioration à faire est aussi la limit supérieur de i. J'ai mis jusqu'à 2000 mais il faudrait aller chercher la dernière ligne avec les colonne A et B de remplit

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Application.Intersect(Target, Range("I:I")) Is Nothing And Target.Text Like "*RN" Then
        Col1 = Cells(Target.Row, 1)
        Col2 = Cells(Target.Row, 2)
        Sol = 0
        Feuille = "Candidats à inviter en SR"
        For i = 3 To 2000
            If Sheets(Feuille).Cells(i, 1) = Col1 And Sheets(Feuille).Cells(i, 2) = Col2 And Sheets(Feuille).Cells(i, 3) = "" Then
                LigneC = i
                Sol = 1
                Exit For
            End If
        Next i
 
        If Sol = 1 Then
            Sheets("Stat PE").Range(Cells(Target.Row, 3), Cells(Target.Row, 6)).Copy Sheets(Feuille).Cells(i, 3)
        Else
            Msg = MsgBox("Pas de possiblité trouvé", , "Erreur")
        End If
    End If
End Sub

Cordialement,
Zeabon

[amanda33110]

Merci Zeabon !! Je vais regarder ca attentivement !