Effacer des donnée

[Didier]

Bonjour à toutes et tous

Voilà à l'aide d'un userform je rentre des données sur la feuil 2, j'aimerais
pouvoir modifier ou effacer ces donnée par la suite je là je n'y parviens pas
pour l'instant j'en suis là :

Private Sub CommandButton1_Click()
Dim L As Integer
L = Sheets("feuil2").Range("a65536").End(xlUp).Row + 1
With Sheets("feuil2")
.Range("a" & L).Value = TextBox1.Value
.Range("b" & L).Value = TextBox2.Value
.Range("c" & L).Value = TextBox3.Value
End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus

End Sub

Private Sub UserForm_initialize()
ListBox1.RowSource = "feuil2!a2:a100"

End Sub
Si quel peut m'aiser ?
Merci
didier

 

[Vériland]

Bonsoir Didier et le forum,

A mon avis tu auras une réponse plus significative en suivant la référence du fichier qui se trouve Lien supprimé...

Bonne programmation

 

[Didier]

Bonjour Vériland et le forum
Féicitation à toi ainsi qu'a Ti et Celeda ça a du être un sacré boulot,
malheureusement je n'ai pas su isoler la fonction recherché je suis remonté
pas mal en arrière sur les posts et rien à part la démo de Thierry qui est
très explicite "Useform de saisie Basic" mais il n'y a pas la modification ou la suppression il faudra attendre son retour alors je me suis inspiré d'un de ces codes e je plante :
With Sheets("feuil2")
.Range("A" & NomLBindex).Value = ""
.Range("B" & NomLBindex).Value = ""
.Range("C" & NomLBindex).Value = ""
End With
C'est NomLBindex qui me travaille , je ne sais pas à quoi ça correspond
enfin voilà bonne journée Vincent
A plus tard
Didier

 

[Ti]

NOTE IMPORTANTE : plutôt que de mettre un bout de code totalement abscons, mettez directement un exemple de votre fichier en pièce jointe (zippée). Dites-vous bien qu'on n'a pas forcément le temps ni l'envie de s'amuser à créer un nouveau fichier dans lequel on essaiera de placer les lignes d'exemples que vous avez mises dans votre question. Donc si vous voulez qu'on vous réponde précisément, posez vos questions de façon précise et détaillée et profitez du confort des pièces jointes.

Donc Didier, tu sais ce qu'il te reste à faire...

 

[Didier]

Bonjou Ti
voilà le fichier en question, il n'y à rien sur le bouton Modifier puique je n'arrive déja pas a effacer la ligne voulue .
Merci
didier

 

[Didier]

Excusez- moi
c'est ce fichier
A plus tard
Didier

 

[Vériland]

Tiens pour t'aider place cette commande sur le bouton "Effacer" à la place de ton code...

Private Sub CommandButton2_Click()
Feuil2.Rows(ListBox1.ListIndex + 1).Resize(1, 1).Delete
End Sub

ceci aura déjà pour principe de supprimer ce que tu sélectionnes dans la ListBox1 ...pour l'instant, n'est supprimé que ce qui est dans la colonne 1 de la "Feuil2"...

 

[Didier]

Bonjour vincent
ça efface le dernier nom dans la liste
Merci et bon samedi
A+tars
Didier

 

[Vériland]

Ah ben oui...

donc tu fais +2 dans la macro et le tour est joué

Private Sub CommandButton2_Click()
Feuil2.Rows(ListBox1.ListIndex + 2).Resize(1, 1).Delete
End Sub

Voilà...bon appétit...lool

PS : Y'a de l'orage dehors...j'vais fermer l'ordi...looool

 

[Ti]

voilà ton fichier corrigé et amélioré

 

[Vériland]

Hi hi hi...tu as vu Didier ?...ce qu'a fait Ti est plus propre...Regarde dans VBA c'est "Option Explicit" maintenant...loool

Allez bonne programmation

 

[Didier]

Re bonjour
Un grand merci à vous deux
Vincent je me demande vraiment comment tu fait pour tes gifs je viens de voir celui de la charte
Bon à près midi
Didier

 

[Vériland]

Bah...le problème c'est qu'il existe moult programmes pour créer des images GIF...il me sera difficile d'en faire la description ici...

Le programme de base que j'utilise est "Paint shop" (animated gif) ...ensuite selon le résultat que je souhaite obtenir j'utiliserais un autre logiciel...c'est suivant la complexité du dessin en fait (3d, effet de textes...etc..)...

Par contre il m'arrive aussi d'utiliser Excel pour créer des dessins...

...si si...lool...

surtout si ce dessin sera sous forme basique...ensuite...hop!... copie écran et voilà...hi hi hi

En fait la question est de savoir ce qu'on veut obtenir au final...pour le reste !...ben c'est une affaire d'adaptation...en tout cas, manipuler des images est à la portée de tout le monde...loool

Voilà pour les GIFS...