valeur userform dans des tableaux qui grandissent

[bomagicmusic]

Bonjour,

J'ai besoin d'aide pour un projet excel:

Je voudrais copier les valeurs de mon userform sur chaque feuille AA,BB etc…
En fonction de la check box sélectionnée, les valeurs iront se mettre
dans la plage correspondante. Le problème est que cette plage peut varier en terme de lignes ajoutées et là, je ne sais plus comment faire.
Merci de votre aide

 

[bomagicmusic]

Re : valeur userform dans des tableaux qui grandissent

Pas de réponse?

 

[mutzik]

Re : valeur userform dans des tableaux qui grandissent

bonjour,

donnes-nous un extrait de ton fichier, stp

 

[job75]

Re : valeur userform dans des tableaux qui grandissent

Bonjour,

Sans fichier joint, c'est vague...

Pour que l'on puisse aider, montrez ce que vous avez fait avec une plage fixe.

Edit : salut Mutzik

A+

 

[bomagicmusic]

Re : valeur userform dans des tableaux qui grandissent

Voici le doc. Merci

 

[jp14]

Re : valeur userform dans des tableaux qui grandissent

Bonjour

Les nouvelles données doivent être mise dans l'espace Titre1 et Titre2 et Titre3
ou est ce une fonction ou exclusif.

JP

 

[bomagicmusic]

Re : valeur userform dans des tableaux qui grandissent

Bonjour,

Les données doivent se copier sous chaque titre. Les Titres ne changent pas.
Si on coche item 1 et 2 et 3 +titre 1 les données iront se recopier en A3 B3 C3.

 

[jp14]

Re : valeur userform dans des tableaux qui grandissent

Bonjour (Re)

Cela ne concernait pas les items mais les titres, les CheckBox pouvant être tous cochés.

JP

 

[bomagicmusic]

Re : valeur userform dans des tableaux qui grandissent

Ah ok, c'est vrai dans ce cas ce sera des options button groupés :une entrée ne peux correspondre qu'a la section titre 1 ou titre 2 ou titre 3

 

[jp14]

Re : valeur userform dans des tableaux qui grandissent

Bonjour bomagicmusic (re)

Ci dessous le fichier excel avec mise à jour de la feuille AA, il suffit de recopier la procédure et de mettre le nom de la feuille.
Principe
Un textbox contient le TITRE
Recherche de la ligne avec le nom sauf pour titre 3 .
Recherche du titre suivant
Insertion d'une ligne
Copie à la première ligne vide cela suppose que la colonne a est toujours renseignée.

A tester

JP

 

[bomagicmusic]

Re : valeur userform dans des tableaux qui grandissent

JP 14 Tu es un génie!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Comment t'as pu écrire autant de code en 3 mn?
Franchement il y a des gens incroyables sur ce forum, c'est vrai j'hallucine en plus vous passez du temps pour nous aider c'est trop la classe
Bon maintenant j'ai plus qu'à essayer de comprendre.
MERCI

 

[bomagicmusic]

Re : valeur userform dans des tableaux qui grandissent

Bonjour à tous,

J'ai essayé le code dans mon projet en suivant bien l'exemple de JP14. Ci dessous le code. 9a bug et on la message box indique else sans if. pourtant tout y est , dans l'exemple ça marche mais pas sur mon projet. Quelqu'un peux m'aider?
Merci

'--------------------------------------------- ------
' Module : UserForm1/CommandButton2_Click UserFormFormations/CommandButtonValider_Click
' DateTime : 12/03/2009
' Auteur : JP14
' Bouton :Valider
'--------------------------------------------------
Private Sub CommandButtonValider_Click()
Dim ad As String
Dim lig As Long
Dim i As Long
Dim j As Long
Dim cellule As Range
Dim plage As Range
Dim nomfeuille1 As String
' feuille aa
'nomfeuille1 = "AA"
nomfeuille1 = "LCA"
With Sheets(nomfeuille1)
'If TextBox5.Value = "" Then Exit Sub
If TextBoxInvisible.Value = "" Then Exit Sub

'If TextBox5.Value = "TITRE 3" Then
If TextBoxInvisible.Value = "" Then Exit Sub
lig = .Range("a65536").End(xlUp).Row + 1
Call ajoutdonnee(£ligne:=lig, £feuille:=nomfeuille1)
Else
' titre 1 ou 2 on cherche l'intervalle
ad = "a1:a" & .Range("a65536").End(xlUp).Row
'lig = recherchemot(ad, TextBox5.Value, nomfeuille1, 1)
lig = recherchemot(ad, TextBoxInvisible.Value, nomfeuille1, 1)

Set plage = .Range("a" & lig + 1 & ":a" & .Range("a65536").End(xlUp).Row)
j = 0
For Each cellule In plage
If cellule.Value = "" And j = 0 Then j = cellule.Row
'If cellule.Value = "TITRE 2" Or cellule.Value = "TITRE 3" Then
If cellule.Value = "GPM" Or cellule.Value = "OFP" Then
i = cellule.Row
Exit For
End If
Next cellule
' on insère une ligne
.Rows(i).Insert Shift:=xlDown
' on copie à la première ligne disponible
Call ajoutdonnee(£ligne:=j, £feuille:=nomfeuille1)
End If

End With

End Sub

 

[jp14]

Re : valeur userform dans des tableaux qui grandissent

Bonjour

Pour retrouver facilement les erreur avec ce message il faut utiliser les tabulations, ce en plus facilite la lecture.

If TextBoxInvisible.Value = "" Then Exit Sub
If TextBoxInvisible.Value = "" Then Exit Sub
.....................
Else
................
For Each cellule In plage
.....................................

If cellule.Value = "GPM" Or cellule.Value = "OFP" Then
..................
End If
...............
Next cellule

Il n'y a pas de if associé à else

JP

 

[bomagicmusic]

Re : valeur userform dans des tableaux qui grandissent

d'accord je vais procéder ainsi mais comment ce fait-il que ça ne bug pas dans ton fichier et que dans le mien ça ne marche pas. j'ai essayé d'enlever else et après il me dit
end if sans bloc if???

 

[jp14]

Re : valeur userform dans des tableaux qui grandissent

Bonjour à tous,
'If TextBox5.Value = "TITRE 3" Then

End Sub

La ligne ci dessus est un commentaire. Il faut supprimer le caractère '

JP