Discussion :

[mia.555]

Bonjour,

J'aimerais remplir quelques cellules depuis une autre feuille si un champ de cette feuille est renseignée.

Exemple: si le nom du responsable est renseigné dans ma feuille 1, j'aimerais que le numéro de téléphone, le numéro de portable et le courriel du responsable qui sont dans la feuille 4 se remplissent automatiquement dans la feuille 1.

merci d'avance

[bboy-eazy]

Bonjour,

Merci de poster le code entrepris
l'aide arrivera par la suite

Cordialement

[mia.555]

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
'Sélection de la feuille "Plans"   ' les plans c'est ma feuille 1
        LesPlans.Activate
        'Déclaration de la variable LigneLibre de Type Long
        'Cette variable représente le numéro de la ligne libre où l'on ajoutera les données
        Dim LigneLibre As Long
        'Affectation du numéro de la ligne libre à la variable LigneLibre
        LigneLibre = LesPlans.[A1048576].End(xlUp).Row + 1
        With LesPlans
            .Cells(LigneLibre, 1) = Me.ReferencePlan_Champ
            If (Me.EmplacementPlan_Champ <> "") Then
                .Hyperlinks.Add .Cells(LigneLibre, 1), Me.EmplacementPlan_Champ
            End If
            .Cells(LigneLibre, 2) = Me.SiteRATPPlan_Liste
            .Cells(LigneLibre, 3) = Me.EntrepriseExterieureConcernee_Liste
            .Cells(LigneLibre, 4) = Me.DomainePlan_Liste
            .Cells(LigneLibre, 18) = Me.ResponsableSite_Champ
            With Sheets("Sites ") ' Sites est la feuille 4 
              If (Me.ResponsableSite_Champ <> "") Then  ' si le responsable du site de ma feuille 1 n'est pas vide, je récupère ses numéros et son courriel sur ma feuille 4
 
        Me.NumeroInterneResponsableSite_Champ = ActiveCell.Offset(0, 7)
        Me.NumeroPortableResponsableSite_Champ = ActiveCell.Offset(0, 8)
        Me.CourrielResponsableSite_Champ = ActiveCell.Offset(0, 9)

mais ce code ne marche pas

[bboy-eazy]

Bonjour,

Comment sais-tu dans la feuille4 que le numéro et le courrier appartient à ce responsable,

Comment sont organisées tes données dans la feuille 4?

[Marc-L]

si le nom du responsable est renseigné dans ma feuille 1, j'aimerais que le numéro de téléphone, le numéro de portable
et le courriel du responsable qui sont dans la feuille 4 se remplissent automatiquement dans la feuille 1.

Bonjour,

si les données ont été organisées logiquement, un code est inutile, le B-A-BA d'Excel - une formule - fait bien l'affaire !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …