Copie vers onglet

[vmax67]

Bonjour à tous je coince depuis plusieurs jours sur ma macro
J’aimerai finaliser mon application, mais je bute sur la maj des données saisies

1.Les valeurs saisies dans la USF ne se copient pas dans l’onglet correspondant à la valeur de la combobox1 et de la combobox2

Avec un nom d'onglet simple cela fonctionne, mais avec un nom composé
du type nom prénom cela ne fonctionne pas


Voir fichier

Merci pour votre aide

Vmax

 

[kjin]

Re : Copie vers onglet

Bonjour,
Un brin d'explication eut été bienvenu
Outre le fait que je n'ai rien compris, si tant est que la macro qui pose pb est dans le module2 (MAJ), je ne vois pas pourquoi cette procédure ne se trouve pas plutôt dans le module du formulaire ?! j'ai beau chercher je ne vois pas de combo7 ni combo10a
A+
kjin

 

[Excel-lent]

Re : Copie vers onglet

Salut Vmax67,

Tu es comme la moto Vmax non?

ON ou OFF? Pas de juste milieu? C'est tout ou rien?

Tu as ouvert combien de discussion pour ce problème??? Perso, c'est la troisième fois que je vois cette question! Tu n'as pas lu la charte? L'endroit où justement l'administrateur indique qu'il ne faut pas ouvrir 40 discussions pour un même problème, mais plutôt continuer sur le même?

Permettant ainsi aux "répondeurs" d'avoir l'historique et mieux comprendre le problème! Evitant aussi à deux "répondeurs" de travailler inutilement sur le même problème sans le savoir!

Sinon, concernant ton problème, la solution tiens en un mot :

Sheets([COLOR="Blue"][B]CStr[/B][/COLOR](V1))

Au vue des tonnes de codes présent sur ton fichier, pour un si petit problème! Comme tu pourras le voir ci-joint, j'ai sabré TOUT ce qui était inutile (et encore j'ai dû en oublier 😀)

Et j'ai mis en application ma solution pour te prouver qu'elle fonctionnait.

PS. : merci pour la petite attention que tu as mis dans ThisWoorKBook! C'était très sympa et en plus original!

Sans rancune et bonne route

V.

Edition : salut Kjin
Edition 2. : Méa culpa, tu as posé la question seulement deux fois! Ici et là bas

 

[vmax67]

Re : Copie vers onglet

Bonjour XLD

Je te remercie pour ton aide si précieuse
Oui sur ton fichier cela fonctionne très bien,
mais il faut absolument que je la 'adapte à mon fichier.

Il s'agit d'un application pour saisir des matchs avec classements.
Deux joueurs se rencontre, il faut bien que je
remplisse les onglets des joueurs concernés avec les résultats qui se trouve dans l'usf

Je ne sais pas si j'ai été clair dans mon explication !

Dis moi ou mettre cette fonction Sheets(CStr(V1)) dans mon code!!!

Merci pour ta réponse

Vmax

 

[vmax67]

Re : Copie vers onglet

Bonsoir à tous

Depuis hier j'ai avancé dans mon code, et je touche presque au but.

J'ai toujours le souci de copier-coller des valeurs.

Les valeurs saisies dans la USF ne se copient pas dans l’onglet correspondant à la valeur de la combobox1 et de la combobox2.

Les données se copient bien, mais malheureusement dans l'onglet actif et non
dans l'onglet correspondant au joueur sélectionner dans la combo1 pour le joueur gagnant et la combo2 pour le joueur perdant.

Voir le code dans le modul 2

Grand merci à tous et particulièrement à Excel-lent

Cordialement

Vmax

 

[kjin]

Re : Copie vers onglet

Bonsoir,

....et je touche presque au but.

Mouais...avec le peu que j'ai compris...il faudra vérifier le type de données et les colonnes de destination
Pas vérifié le reste
A+
kjin

 

[vmax67]

Re : Copie vers onglet

Bonjour kjin et le forum.

Merci pour votre aide c'est exactement ce qu'il me fallait.

J'ai une dernière question !

Je cherche le moyen d'éviter d'avoir un doublon entre Textbox 1 et Textbox 2

Exemple on valide par Dupont Paul dans Textbox 1 et il se trouve toujours dans la Textbox 2.

Sachant que les noms qui alimentent les textboxs se trouvent sur la feuille Tableau colonne B


Cordialement.

VMAX

 

[Excel-lent]

Re : Copie vers onglet

Bonsoir Vmax67,

Pour ne pas avoir de doublons dans ta seconde liste de validation, tu peux par exemple faire ainsi :

Private Sub V1_Click()

Dim Tablo, k As Long

With Sheets("Tableau")
  Tablo = .Range("B3:B" & .Range("B3").End(xlDown).Row)
End With

With V2
    .ColumnCount = 1
    .ColumnWidths = "80"
    For k = 1 To UBound(Tablo)
      If Tablo(k, 1) <> V1.Value Then .AddItem Tablo(k, 1)
    Next k
End With

Tu trouveras la macro dans son élément naturel ci-joint!

Bonne soirée