Discussion :

[crissud]

Bonsoir,

J'ai besoin d'un coup de main, pour avancer dans ma macro

Je veux renvoyer dans une UserForm le contenue d'une cellule se trouvant dans un autre onglet. J'ai trouvé un code, mais en l'adaptant à mon utilisation j'ai aucune valeur d'affiché.

Il s'agit de renvoyer le libellé d'un compte en ayant sélectionné son numéro dans une liste déroulante. Ma liste déroulante fonctionne bien.

[code] = Onglet où se trouve le plan comptable
[C]= colonne numéro de compte & [D] colonne nom compte
[CboCompte] c'est ma liste déroulante me permettant de sélectionner le numéro de compte
[TextLibCompte] C'est la zone de mon UserForm où je veux afficher le nom de compte

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Lig As Long
 
  ' Numéro de ligne = Entête tableau 1 + Choix dans la liste + 1 car commence à 0
Lig = 1 + Me.CboCompte.ListIndex + 1
 
With Sheets("code")
 
.Range("D" & Lig) = Me.TextLibCompte.Value

Merci d'avance
Christian

[casefayere]

Bonsoir,

Je veux renvoyer dans une UserForm le contenue d'une cellule se trouvant dans un autre onglet...

Code :

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

.Range("D" & Lig) = Me.TextLibCompte.Value

non, d'après ta lecture

Code :

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

Me.TextLibCompte.Value=.Range("D" & Lig)

d'après ce que j'ai compris

[crissud]

Merci bien

c'est la bonne syntaxe, mais mon code repris d'une exécution opérationnelle, qui me parait simple à mettre en oeuvre mais je n'arrive pas à la faire fonctionner.

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
 
Private Sub UserForm_Initialize()
 
' Choix dérolant de numéro de compte
 
CboCompte.RowSource = ("code!Compte")
CboCompte.ListIndex = -1
 
 
'Affichage libellé du compte
Dim Lig As Long
 
  ' Numéro de ligne = Entête tableau 1 + Choix dans la liste + 1 car commence à 0
 
Lig = 1 + Me.CboCompte.ListIndex + 1
 
Me.TextLibCompte.Value = Sheets("code").Range("D" & Lig)
 
 
End Sub

Si vous pouvez me donner un petit coup de main

merci d'avance

[crissud]

Bonsoir,

je me suis aperçu de mon erreur,

Voici ce qu'il fallait faire

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
 
Private Sub CboCompte_Change()
  Dim I As Integer, Col As Long, Lig As Long
  ' Numéro de ligne = Entête tableau 1 + Choix dans la liste + 1 car commence à 0
  Lig = 1 + Me.CboCompte.ListIndex + 1
  ' Avec la feuille BD Poste
  With Sheets("Code")
    ' Récupérer toutes la valeurs pour l'USF
    Me.TextLibCompte.Value = .Range("D" & Lig)
 
    ' Etc ...
    ' Inscrire les différentes missions
    ' Récupérer le numéro de colonne de la première mission
    Col = .Range("D" & Lig).Column
    ' Pour toutes les missions
 
  End With
End Sub