userform

YANN-56

XLDnaute Barbatruc

• 1 Juin 2011

• #2

Re : userform

Bonsoir flemerci,

Ce n'est plus une question du bac, ni de math sup, ni de math spé!... L'E.N.A. peut-être !!!

En sujet tu aurais mis "VBA" le résultat aurait été le même!!! 🙂

Allez à la pêche avec un hameçon Inox brillant peut attirer des maquereaux,
mais quant aux macros, j'ai un doute.

Fais un effort en joignant un Classeur ressemblant à ta recherche,
et tu seras certainement plus facilement aidé ici.

Amicalement,

Yann, qui a regardé avec cette intention.

 

Vote positif 0 Vote négatif

F

flemerci

Guest

• 1 Juin 2011

• #3

Re : userform

Merci Yann c'est sympa, ceci dit, ce sont des données un peu sensible.
par contre, je peux te mettre le code dans lequel il me manque juste comment copier les formules de la ligne précédente, si tu sais m'aider, c'est avec plaisir :

Private Sub CommandButton1_Click()
Dim L As Long

' Si on n'entre pas un n°, on le signale et on sort de la Sub
If Not IsNumeric(tbLig.Text) Then
tbLig.Text = ""
MsgBox "Vous devez entrer un nombre"
Exit Sub
End If

L = CLng(tbLig.Text)
' Sile n° de ligne est inférieur à 1 ou supérieur à la derniére ligne libre, on le signale et on sort de la Sub
If L < 1 Or L > [a65536].End(xlUp).Row + 1 Then
tbLig.Text = ""
MsgBox "Vous devez entrer une ligne valide"
Exit Sub
End If

' le informations seront copiées au n° de ligne spécifié
Rows(L & ":" & L).Select
Selection.Insert Shift:=xlDown



' Copie des informations du USF dans la feuille
Cells(L, 1) = TextBox1.Text


' Réinitialise l'USF
TextBox1.Text = ""

' copie la cellule précédente




Me.Hide
End Sub

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 2 Juin 2011

• #4

Re : userform

Re

Plus sérieusement, si on demande un fichier c'est pas pour t'embèter. Mais dans ton cas avec un userform ce sera plus facile de te donner la solution.

On ne te demande pas un fichier avec données confidentielles mais juste une extraction de quelques lignes bidons avec ton USF et ton code.

Après cela je pense que quelqu'un sur le forum pourra te donner un code plus facilement (peut-être moi si j'ai le temps et que j'en ai les capacités intellectuelles ou un autre Xldiens).

Si tu ne veux pas mettre de fichier, libre à toi, mais sache que dans ce cas tes chances sont restreintes. Quoique, souvent le forum fait des miracles 😱.

 

Dernière édition: 3 Juin 2011

Vote positif 0 Vote négatif

F

flemerci

Guest

• 2 Juin 2011

• #5

Re : userform

j'ai tenté ça, mais ça copie à la fin des lignes et pas dans la ligne créée

' copie la cellule précédente
With Sheets("Synthèse")
'Récupération de la dernière ligne écrite
i = .Cells(65535, 1).End(xlUp).Row
'Yapuka copier sur la ligne suivante
Sheets("Synthèse").Range("B57:Z57").Copy .Cells(i + 1, 1)
End With

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 2 Juin 2011

• #6

Re : userform

Bonjour à Tous Flemerci, Yves🙂,Michel🙂

Code:

'Récupération de la dernière ligne écrite
     i = .Cells(65535, 1).End(xlUp).Row

non il s'agit là de récupérer le numéro de ligne et non la ligne, maintenant comme tu as la flemme de nous faire un fichier exemple, tu aurais déjà eu ta réponse et précise pas a peu près.
bonne journée
A+
papou🙂

 

Vote positif 0 Vote négatif

F

flemerci

Guest

• 2 Juin 2011

• #7

Re : userform

oui mais le n° de ligne sera aléatoire en fonction de la ligne sélectionnée dans la userbox

 

Vote positif 0 Vote négatif

F

flemerci

Guest

• 2 Juin 2011

• #8

Re : userform

Ah oui et je voudrais aussi que ça se fasse sur mes 2 autres feuilles aussi 🙂 car pour l'instant la userform ne le fait pas !!!
merki les kikis

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Juin 2011

• #9

Re : userform

Bonjour,

voir ici :
Userform &bull; Excel-Pratique

 

Vote positif 0 Vote négatif

F

flemerci

Guest

• 3 Juin 2011

• #10

Re : userform

merci pierrot mais ça ne marche tjrs pas !! grrr c pénible cette histoire !! je me suis lancé dans un truc trop compliqué pour moi

 

Vote positif 0 Vote négatif

F

flemerci

Guest

• 5 Juin 2011

• #11

Re : userform

bon voilà la pièce jointe
appuyer sur le bouton, "création nouvelle agence", mettre "test", sélectionnez ligne "12", et il faut que les formules de la ligne 8 se copient sur cette nouvelle ligne "test" ...

merci à tous

 

Pièces jointes

• Copie de test forum3.xls

  158 KB · Affichages: 85

Dernière modification par un modérateur: 5 Juin 2011

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 5 Juin 2011

• #12

Re : userform

Bonjour

J'ai fait du ménage sur le fil

Merci à TOUS de rester dans l'esprit d'XLD

 

Vote positif 0 Vote négatif