Userform vers cellules

Version imprimable

26/04/2012, 19h24
vinz33vinz

1 pièce(s) jointe(s)

Userform vers cellules

Bonjour à tous,

Je reviens ici pour une nouvelle interrogation.
Avec une précédente aide, j'ai réussi à finir ma userform.

Désormais, je souhaiterai que les informations saisies et sélectionnées soient envoyées vers les cellules correspondantes de la page 2. (même celle issues de la multipages)

Faut-il créer un tableau ??
Comment faire pour obliger la création d'une ligne pour ne pas effacer les données existantes (même si pour le moment il n'y a rien) ?

-> après avoir appuyé sur VALIDER dans la userform "formulaire_sys_sol"

Je vous transmets le fichier en question.
L'intérêt pour moi et de connaitre la méthode général pour la comprendre et la mettre pratique !
Je compte sur vous :ccool::ccool::mrgreen:
26/04/2012, 19h51
patricktoulon

heu!...

bonjour

pour écrire a la chaîne ligne après ligne tu n'a pas besoins de créer une ligne il te suffi de trouver la dernière ligne utilisées + 1
exemple
pour 1er sheets c'est

Code:

derniereligne=Sheets(1).Range("a" & Rows.Count).End(xlUp).Row+1

ensuite pour tes controls dans ton usf tu peut boucler d'abors sur ton multipage
ensuite boucler sur les controls de chaque page de ton multipage
et dans la sous boucle en debut

Code:

derniereligne=derniereligne+1

et tra,férer les données
fin de boucle sur les controls
find de boucle multipage
je ne peut pas t'en dire plus n'ayant pas le contexte

cela dis au plus simple il faudrais que tes textboxs dans le userforms soit dans un ordre précis
sinon ça va faire beaucoup de lignes de code

au plaisir

Bonjour,

Juste un exemple pour renseigner le "Secteur" ligne après ligne :

Code:

1
2
3
4
5
6
7
Private Sub CommandButton2_Click()
    Dim Ligne As Long
    With Sheets("Feuil1")
        Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(Ligne, 2).Value = Me.ComboBox3.Value
    End With
End Sub

J'ai commencé à préparer mais il manque des précisions, regardes le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton2_Click()
With Sheets("Feuil1")
  derlg = .Range("B" & .Rows.Count).End(xlUp).Row + 1
  .Range("B" & derlg) = ComboBox3
  .Range("C" & derlg) = ComboBox4
  .Range("D" & derlg) = DTPicker1
  .Range("E" & derlg) = TextBox2
  .Range("F" & derlg) = TextBox6
  .Range("G" & derlg) = TextBox3
  .Range("H" & derlg) = TextBox5
  For x = 1 To 4
    If Me.Controls("OptionButton" & x) Then
      .Range("I" & derlg) = Me.Controls("OptionButton" & x).Caption: Exit For
    End If
  Next x
  .Range("J" & derlg) = 'a voir, qu'appelles-tu "caratéristique"
  .Range("K" & derlg) = ComboBox5
  .Range("L" & derlg) = 'a voir, ou trouves-t-on "Traité"
  .Range("M" & derlg) = 'à voir, ou trouve-t-on "Vendu"
End With
End Sub

26/04/2012, 21h02
vinz33vinz
Merci à tous !
->casefayere : Je vais étudier votre "code" pour essayer de bien le comprendre.

Pour info, les colonnes "traité" et "vendu" n'ont pour le moment aucune utilité. Je pense qu'elles seront remplies manuellement..
Code:

1 2 Private Sub CommandButton2_Click() With Sheet("Feuil1")
Sur votre code, ne manque-t-il pas le "!" :
Code:

1 2 Private Sub CommandButton2_Click() With Sheet("Feuil1!")
Pour comprendre, faut que je lise le code en regardant ma feuill 1 en même temps.

Merci pour l'aide !

Non, il ne manque pas "!" mais il manque un "S
Code:

1 2 With Sheets("Feuil1")
encore ecris trop vite

une autre erreur :
décidément, je mettrai ça sur le compte de ma Grippe
Code:

1 2 3 4 5 For x = 1 To 4 If Me.Controls("OptionButton" & x) Then .Range("I" & derlg) = Me.Controls("OptionButton" & x).Caption: Exit For End If Next x

26/04/2012, 23h17
vinz33vinz

J'ai intégré le code.
Visiblement tout fonctionne.
Demain j'essaierai d'envoyer les informations de la multipages vers "caractéristiques".

Bonne soirée à tous !
27/04/2012, 10h21
Didier Gonard
Bonjour,
Citation:
Envoyé par vinz33vinz

Sur votre code, ne manque-t-il pas le "!" :

Code:

1 2 Private Sub CommandButton2_Click() With Sheet("Feuil1!")

Citation:

Envoyé par casefayere

Non, il ne manque pas "!" mais il manque un "S
@vinz33vinz regardes les tutos de DVP sur les objets Excel et les collections, ça te permettra d'être sur des écritures à employer et facilitera grandement l'écriture de ton code et la compréhension du reste ;)

Sheets est la collection des objets Sheet, et quand tu veux désigner un objet via son item ou son nom, tu le fais en invoquant une propriété de la collection donc Sheets(xxx).

D’ailleurs pour être correct, vu que tu adresses des cellules, tu devrais employer l'objet Worksheet (collection = Worksheets*) et non la collection Sheets qui contient tous les autres types de feuilles Graph, Macro, Dialogue et calcul ;)

* En général sous VBA les collections portent le nom de l'objet sous-jacent avec un S en plus... à quelques exceptions près..

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier
27/04/2012, 11h31
casefayere

re-bonjour à tou(te)s, Didier,

Merci de rappeler des règles incontournables, c'est toujours utile, pour ma part, il est vrai que je suis pas en forme et je n'ai donc pas envie de me lancer dans trop d'explications, je devrais ne pas pas insister dans mon état mais c'est plus fort que moi, je n'aime pas laisser un sujet dans lequel je me suis impliqué, en plan.

Mais c'est aussi formateur que vinz33vinz puisse voir mes erreurs (que celui qui n'a jamais...)

Bonne journée, merci encore
30/04/2012, 11h27
vinz33vinz

1 pièce(s) jointe(s)

Bonjour à tous !
Désolé pour cette absence.
Finalement je n'ai pas réussi à faire ce que je voulais !
J'ai voulu créer un code avec : If .. then.. pour gérer les données de ma multipages.

La multipages varie en fonction de la sélection de l'optionbouton de la partie type Chantier...

Seulement comment faire varier à la fois la source des données (page 1,2,3 ou 4) vers une cellule unique ? (colonne J feuill 1) ??

Je pensais m'aider du reste des codes mais je piétine...
30/04/2012, 16h43
Daniel.C

Bonjour,

Je ne comprends comment tu peux mettre toutes les valeurs d'une page dans une seule cellule ? A moins de les mettre les unes en dessous de l'autre ?
30/04/2012, 19h29
vinz33vinz

Oui ! Je sais que c'est possible de tout regrouper dans une seule textbox mais dans une cellule je ne sais pas...

Voici la partie du code du bouton uniquement pour la page "Logement neuf". A toi de compléter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton2_Click()
    Dim Ligne As Long
    With Sheets("Feuil1")
        Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(Ligne, 2).Value = Me.ComboBox3.Value
        'traitement de la page "logement neuf"
        If Me.OptionButton2 = True Then
            If Me.CheckBox6 = True Then .Cells(Ligne, 10).Value = Me.CheckBox6.Caption
            If Me.CheckBox5 = True Then
                If .Cells(Ligne, 10).Value = "" Then
                    .Cells(Ligne, 10).Value = Me.CheckBox5.Caption
                Else
                    .Cells(Ligne, 10).Value = .Cells(Ligne, 10).Value & Chr(10) & Me.CheckBox5.Caption
                End If
            End If
            If Me.CheckBox7 = True Then
                If .Cells(Ligne, 10).Value = "" Then
                    .Cells(Ligne, 10).Value = Me.CheckBox7.Caption
                Else
                    .Cells(Ligne, 10).Value = .Cells(Ligne, 10).Value & Chr(10) & Me.CheckBox7.Caption
                End If
            End If
            If Me.CheckBox4 = True Then
                If .Cells(Ligne, 10).Value = "" Then
                    .Cells(Ligne, 10).Value = Me.CheckBox4.Caption
                Else
                    .Cells(Ligne, 10).Value = .Cells(Ligne, 10).Value & Chr(10) & Me.CheckBox4.Caption
                End If
            End If
        End If
        Columns(10).AutoFit
    End With
End Sub

29/05/2012, 10h52
vinz33vinz

Bonjour à vous,

Désolé de cette absence. J'étais à l'étranger pendant quelques semaines..
Bref j'ai réussi entièrement à envoyer toutes les données (même les 4 pages de la multipages) de l' userform vers ma feuille excel !

merci pour le coup de main ! Je mets immédiatement ce post en "résolu".

Un autre sujet arrive ! (j'ai un autre soucis)..

Merci à vous
A+ sur developpez !