Discussion :

[JadawinLL]

Bonsoir,


Question n°1 : Comment reporter les données d'une UserForm dans un tableau qui n'est pas fixe ?

Dans le fichier sur lequel je travaille actuellement, mon tableau de report peut être amené à descendre de ligne en ligne. Or le report des données d'une UF se fait (à ma connaissance) vers des cellules prédéfinies.
Exemple : Range("A10").Value = TextBox1.Value

Si mon tableau descend d'une ligne, ma commande n'est plus bonne puisque la cellule de report est devenue A11.

PS : Je n'ai bien entendu pas la possibilité d'ancrer mon tableau.



Question n°2 : Comment compléter un tableau via une UserForm ?

Je voudrais ajouter des informations dans un tableau via une UserForm. Mon tableau est renseigné en ligne et chaque ligne est numérotée (1, 2, 3, 4, 5, etc... en fonction de l'ordre de création)

L'idée serait de définir la valeur cible (exemple : 3), d'ouvrir une UF, de remplir les champs complémentaires, de chercher la valeur cible et de reporter les champs complétés de X colonnes sur la droite de la cellule "valeur cible".




Les réponses que j'entrevois me semblent identiques (rechercher une cellule contenant une certaine valeur et reporter les données de X lignes ou colonnes à partir de cette cellule) mais je ne sais pas les mettre en application....


Merci par avance.

[Gorfael]

Salut JadawinLL et leforum
Tes deux questions se ressemblent
Question n°1 : Comment reporter les données d'une UserForm dans un tableau qui n'est pas fixe ?
Effectivement Tu ne peux copier une TextBox que dans une cellule prédéfinie. Mais elle peut être définie en "dur" => Range("A10") ou en variable comme Range("A" & X) ou Cells(X, "A"). Mais ça implique de définir le X : Soit par un calcul, soit par une recherche d'un identifiant.

Question n°2 : Comment compléter un tableau via une UserForm ?
Pour rejoindre la réponse précédente, en admettant que ton nombre soit dans la colonne A, tu peux soit rechercher le début de ton tableau (la ligne de titre), qui sera considérée comme la ligne 0 et ajouter le nombre identifiant dans la liste, mais ça demande d'être sûr de l'ordre, soit rechercher directement le nombre dans la ligne.

Dans le cas évoqué, il suffit de connaître la dernière ligne sélectionnée et de la mémorisée, avant de lancer la macro, puis à la fermeture de l'USF de copier les différentes TextBox dans les colonnes de cette ligne.

Pour recopier, on se sert de la ligne pour copier en décalant. En admettant qu'on n'ait pas touché à la sélectionde la feuille, on pourrait avoir un code du style :

Code :

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

1
2
3
4
5
Dim Cel as Range
Set cel= activesheet.selection.Cells(1)
Cel.offset(0,1)=Me.Textbox1 'mettre la TextBox1 de l'USF(Me.) dans la cellule à droite de celle en haut à gauche de la sélection
Cel.offset(0,2)=Me.TextBox3
'etc

Évidemment, je n'ai pas testé, mais un code si simple...
A+

[JadawinLL]

Merci bien pour tes réponses.

Je pense mettre mal exprimé concernant la 2ème question mais j'ai quand même réussi à avancer. Je reviendrais à la charge en cas de besoin.