Copie USF vers onglet

[vmax67]

Bonsoir
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 (V1)
et de la combobox2 (P2)

2. Comment faire pour lancer une macro avec une condition (If)
Exemple If Textbox.Value = "B" on lance la macro (MATCHNULL) sinon on continue la suite du code.

Voir fichier :
Cijoint.fr - Service gratuit de dépôt de fichiers

Merci pour votre aide

Vmax

 

[Excel-lent]

Re : Copie USF vers onglet

Bonsoir Vmax67,

Ce n'est pas dans la politique du forum que de mettre son fichier en dehors du forum! Car lorsque cijoint (ou toi) effacera ton fichier de chez eux, ta question sera toujours ici, mais pas le fichier!

Donc les internautes qui viendrons ici ne pourrons pas lire, ni comprendre ta question, ni profiter pleinement de la réponse donnée!

Surtout qu'avec un peu de nettoyage et un petit "zippage", cela suffit toujours pour que le fichier soit dans les limites de tailles supporté par le forum!

C'est pourquoi je vais te répondre sans regarder ta pièce jointe, mais du même coup, ma réponse sera moins précise! Mais les futurs visiteurs pourront profiter pleinement de la réponse!

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

As-tu pensé à utiliser .value?

Ce qui donnerais quelque chose dans ce genre (à adapter et tester sur ton fichier)

Sheets(Combobox1[COLOR="Blue"].value[/COLOR]).Range("V1") = ...
Sheets(Combobox2[COLOR="Blue"].value[/COLOR]).Range("P2") = ...

2. Comment faire pour lancer une macro avec une condition (If)
Exemple If Textbox.Value = "B" on lance la macro (MATCHNULL) sinon on continue la suite du code.

Tout simplement, en écrivant le nom de ta macro!

If Textbox.Value = "B" then
   MATCHNULL
End if

Et si cela ne fonctionne pas, dans le cas où ta macro ne se trouve pas au même endroit, lui préciser l'emplacement de ta macro!

If Textbox.Value = "B" then
   module1.MATCHNULL
End if

Cela répond à tes questions? Ca fonctionne sur ton fichier?

Bonne fin de soirée

Cordialement

 

[Excel-lent]

Re : Copie USF vers onglet

Sheets(Combobox1[COLOR="Blue"].value[/COLOR]).Range("V1") = ...
Sheets(Combobox2[COLOR="Blue"].value[/COLOR]).Range("P2") = ...

Si le nom de ta feuille contient des espaces, cela peut en effet poser problème. Est-ce le cas?

A te lire

Cordialement

 

[vmax67]

Re : Copie USF vers onglet

Bonjour

Merci pour vos explications

Voici la partie du code qui me pose des soucis :

Sub MAJ()
Dim i As Byte, Nom As String, DerLig As Long
Dim Dum As String, Longueur As Integer

Nom = V1.Value ' = Valeur de la Combobox1
Dum = Right(Nom, 2)
Longueur = Len(Nom)
Nom = Mid(Nom, 1, (Longueur - 4))
Nom = Nom & Dum
Nom = LCase(Nom)
Nom = Trim(Nom)
Dum = UCase(Left(Nom, 1))
Nom = Dum & Mid(Nom, 2)

With Sheets(Nom)
DerLig = .Range("A65536").End(xlUp).Row + 1
.Cells(DerLig, 1) = V1
.Cells(DerLig, 2) = TextBox5
.Cells(DerLig, 3) = TextBox6
.Cells(DerLig, 4) = Combobox7
.Cells(DerLig, 5) = ComboBox10a

End With
End Sub

VI étant le nom de la combobox1 et P2 la combobox2

Il y a bien un éspace dans le nom des onglets.
Exemple: Dupont Paul, Dupont Jean, Dupont Claude.

Merci pour votre collaboration

Vmax

 

[Excel-lent]

Re : Copie USF vers onglet

Bonjour à tous,

Vmax ayant posé sa question de multiple fois, pour que tout le monde s'y retrouve, rendez-vous ici, où la question a été solutionné.

Bonne fin d'après midi à tous