Discussion :

[remy13]

Bonjour,

voila j'ai essayé de réaliser un fichier excel avec des macro par contre j'ai un petit problème.

j'ai créer une boite de dialogue dans laquelle j'ai mis une zone d'édition ("edition"). En validant cette boite de dialogue j'arrive a faire écrire ce qu'il y a ds "edition" dans la "feuil4" ds la case (3,3). Pour cela j'ai créé la macro suivante qui utilise le bouton 2 valider :

Code :

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

1
2
3
4
Sub Bouton2_QuandClic()
    Sheets("Feuil4").Select
    Sheets("feuil4").Cells(3, 3).Value = DialogSheets("Dialogue1").DrawingObjects("edition").Text
End Sub

Par contre je souhaiterai que ce que je v rentrer la fois suivante ds la meme case edition sécrive dans la meme colonne mais sur la ligne suivante.

J'arrive pas a savoir comment faire

Merci d'avance pr votre aide

Rémy

[neupont]

Salut,
il te faudrait faire une boucle de vérification avant d'insérer le texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Sub Bouton2_QuandClic()
dim i as integer 'i pointe la première ligne vide

Sheets("Feuil4").Select

i = 3
do while cells(i,3) <> ""
   i = i+1
loop

Sheets("feuil4").Cells(i, 3).Value = DialogSheets("Dialogue1").DrawingObjects("edition").Text
End Sub

le but est d'utiliser une variable (ici "i") qui indique la première ligne vide où tu peux insérer le texte.

[remy13]

Merci Neupont ça marche niquel.

Par contre une dernière petite question saurais-tu comment effacer tout ce qui est ecrit ds ma boite de dialogue qd je la reouvre car ça lmaisse les derniers trucs marqués.

encore merci

[neupont]

Ecoute je ne peux pas être sûr car je n'utilise pas ces objets, mais ça ne m'étonnerait pas que tu aies une fonction Clear du genre :

Code :

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

DialogSheets("Dialogue1").DrawingObjects("edition").Clear

ou sinon essayer :

Code :

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

DialogSheets("Dialogue1").DrawingObjects("edition").Text = ""

A vue de nez, hein...

[moilou2]

Slt J'ai une autre soluce peut être plus simple pour toi qui consiste en fait à ne coller la valeur dans une cellule de ta colonne que si cette cellule est vide, se qui revient à tester si la celulle est vide alors je colle sinon je décale de 1 celule vers le bas et ainsi de suite pour cela utilise le bout de code suivant:

Code :

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

1
2
3
4
5
Set cellule = Worksheets("feuil4").Range("c3")
Do While Not IsEmpty(cellule)
  Set cellule = cellule.Offset(1, 0)
Loop
cellule.Value = DialogSheets("Dialogue1").DrawingObjects("edition").Text

Voila pour sa et pour vider ton champ Edit, il faut que dans tu fasse un bout de code comme suit:

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
'Initialisation du champ "Edit"
 
DialogSheets("Dialogue1").DrawingObjects("edition").Text.Value = ""

Voila jespere que sa t'aidera

[moilou2]

J'ai oublié le

Code :

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

End Sub

Mais je pense que tu va t'en rendre compte

[remy13]

Pour écrire dans les cases suivante les 2 solutions marchent, par contre por effacer, la solution suivante marche mais ne me renvoi pas sur ma page feuil4 qd je clique sur le bouton ok:

Code :

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

DialogSheets("Dialogue1").DrawingObjects("edition").Text = ""

Par contre j'ai essayé ta solution Moilou2 avec le private sub en la mettant apres ma premiere macro mais ça marche pas.

[fring]

Bonjour,

Apparement, si j'ai bien compris, tu as insérer ta "boîte de dialogue" sur une feuille via un TextBox ou un Label ?

Pourquoi ne pas passer par un InputBox ou éventuellement un UserForm ?

Un ptit exemple vaut mieux qu'une longue explication

Pièce jointe 25775