RESOLUT - validation des donnees d'un userform ou autre solution

[Basu]

Bonjour a tous

Voila quelque temps que je surf incognito sur le Forum à la recherche de plein de solution pour crée un userform,(que j'ai presque terminer🙂) mais je m'en remet à vos conseils car je ne trouve pas la solution à mon problème.
je m'explique !!

mon combobox insère les valeurs dans ma feuille données (jusque la, sa va) mais

j'aimerai qu'un trie s'effectue automatiquement
par exemple :
si je sélectionne Paris dans ma combobox les données s’insérerait dans la feuille "Paris" les un a la suite des autres et idem si dans ma combobox je sélectionne Oslo direction feuille "Oslo"


Je pourrai le réaliser depuis ma feuille "donnée" (avec la fonction SI )et copie dans la bonne feuille mais au final j'ai 13 commune de sélectionnable dans ma combobox (limiter a 6 fonction SI)

Je suis preneur de toute solution soit userform, macro, ou formule

Merci pour votre aide !!

 

[vmax01]

Re : validation des donnees d'un userform ou autre solution

bonjour le fil et bonjour basu.

voici un code qui marche

Private Sub CommandButton1_Click()
Dim Doc As Workbook
Dim Feuil As Worksheet
Dim num As Integer
Sheets("Donnees").Activate
num = Sheets("Donnees").Range("A65536").End(xlUp).Row + 1
Range("A" & num).Value = ComboBox1
Range("B" & num).Value = TextBox1Feuil = Worksheet
For Each Doc In Application.Workbooks
    For Each Feuil In Doc.Worksheets
        If Feuil.Name = ComboBox1 Then
            num = 0
            num = Feuil.Range("A65536").End(xlUp).Row + 1
            Feuil.Range("A" & num) = ComboBox1
            Feuil.Range("b" & num) = TextBox1
        End If
    Next
Next
End Sub

bon faut l'améliorer mais c'est un début.

bonne journée

 

[roro69]

Re : validation des donnees d'un userform ou autre solution

Bonjour

Private Sub CommandButton1_Click()
Sheets("Donnees").Activate
num = Sheets("Donnees").Range("A65536").End(xlUp).Row + 1
num1 = Worksheets(CStr(Me.ComboBox1)).Range("A65536").End(xlUp).Row + 1

With ActiveSheet
.Cells(num, 1) = ComboBox1
.Cells(num, 2) = TextBox1
End With
With Worksheets(CStr(Me.ComboBox1))
.Cells(num1, 1) = ComboBox1
.Cells(num1, 2) = TextBox1

End With
End Sub

A++
Edit:Bonjour vmax désolé telescopage

 

[Basu]

Re : validation des donnees d'un userform ou autre solution

Merci ! les gars

je teste sa cette apres midi et je vous tien au courant

 

[laetitia90]

Re : validation des donnees d'un userform ou autre solution

bonjour Basu,vmax01,roro69🙂🙂🙂
comme je comprends??

Private Sub CommandButton1_Click()
With Sheets(ComboBox1.Value)
.Range("a2", .Cells(Rows.Count, "a").End(xlUp))(2) = ComboBox1
.Range("b2", .Cells(Rows.Count, "b").End(xlUp))(2) = TextBox1.Value
End With
End Sub

 

[vmax01]

Re : validation des donnees d'un userform ou autre solution

re le fil

Bonjour vmax désolé telescopage

aucun problème plusieurs solutions sont mieux qu'une (au moins ça prouve que tous les chemins mènnent à Rome).

Laetitia90 j'addore ton code et en plus c'est plutot ça que je voulais faire mais je ne mettait pas le ".value" apres le combobox ..... donc je me suis rabatu sur une boucle..... je met ton code de coté pour m'en rappeler.

Bonne journée a tous.

 

[laetitia90]

Re : validation des donnees d'un userform ou autre solution

re,🙂🙂🙂
une boucle c'est pas mauvais non plus si tu ecris sur plusieurs feuilles
un exemple avec un array

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
For Each Ws In Sheets(Array(ComboBox1.Value, "Donnees"))
With Ws
.Range("a" & .Cells(Rows.Count, 1).End(xlUp).Row + 1) = ComboBox1
.Range("b" & .Cells(Rows.Count, 1).End(xlUp).Row) = TextBox1.Value 'par apport a colonne a
End With
Next Ws
End Sub

 

[Basu]

Re : validation des donnees d'un userform ou autre solution

alors dans un 1er temps merci a tous pour toute ces solutions
je suis partie cet aprem sur la solution de laetitia90 qui ma sembler plus facile et plus concise
j'ai commencer à l'adapter à mon fichier original, mais je bloque et j'aurai besoin de quelque ligne en plus (j’espère ne pas abuser)

pour mes option bouton j'utilisais jusque a présent le code suivant

Private Sub valider_Click()
If OptionButton7.Value = True Then
        Range("B" & num) = "Fleurs"
    Else
        Range("B" & num) = "" 'pour ne rien afficher
    End If
End sub

j'ai essailler de mixer tous sa pour que sa marche

Private Sub valider_Click()
If OptionButton7.Value = True Then
        .Range("c2", .Cells(Rows.Count, "c").End(xlUp))(2) = "Fleur" = OptionButton1
    Else

mais une fois valider il me renvoie la valeur "FAUX"
(ce = "Fleur" je l'ai déplacer partout mais rien !! 😱)
si vous avez une correction à apporter !!

merci de votre nouvelle aide

 

[Staple1600]

Re : validation des donnees d'un userform ou autre solution

Bonsoir à tous

Si j'ai bien tout compris

Private Sub valider_Click
ActiveSheet.[C65536].End(xlUp)(2) = IIf(OptionButton7, "Fleur", vbNullString)
End Sub

 

[Basu]

Re : validation des donnees d'un userform ou autre solution

rapide et efficace, sa fonctionne bien, grand merci !!
je me laisse la nuits avant de me replonge dans mon fichier d'origine je vous tien au courant dans le week-end

 

[Basu]

Re : RESOLUT - validation des donnees d'un userform ou autre solution

Bonjour,
un grand merci pour toute vos réponses
tout cela fonctionne à merveille
c'est vraiment super d'avoir des réponses aussi rapidement

passer tous de bonne fête !!!

 

[Basu]

Re : RESOLUT - validation des donnees d'un userform ou autre solution

Bonjour,
un grand merci pour toute vos réponses
tout cela fonctionne à merveille
c'est vraiment super d'avoir des réponses aussi rapidement

passer tous de bonne fête !!!