Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de
donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte.
Coment faire pour avoir un retour à la ligne automatique en fonction de la
largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
*********************************************************************************
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour ,
si tu mets le texte dans un TextBox mets sa propriété WordWrap à true,
isabelle
Le 2011-01-24 14:09, a écrit :
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target<> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target<> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
bonjour j@b,
si tu mets le texte dans un TextBox mets sa propriété WordWrap à true,
isabelle
Le 2011-01-24 14:09, j@b a écrit :
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de
donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte.
Coment faire pour avoir un retour à la ligne automatique en fonction de la
largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target<> "" Then
UserForm2.Show
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target<> "" Then
UserForm2.Show
End If
End If
End Sub
*********************************************************************************
si tu mets le texte dans un TextBox mets sa propriété WordWrap à true,
isabelle
Le 2011-01-24 14:09, a écrit :
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target<> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target<> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
michdenis
Bonjour,
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
Bonjour,
Et pour compléter la réponse d'Isabelle,
La propriété Multiline = True ET WordWrap = True
MichD
--------------------------------------------
"j@b" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$426a74cc@news.free.fr...
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de
donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte.
Coment faire pour avoir un retour à la ligne automatique en fonction de la
largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
*********************************************************************************
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
j
super merci
bon je vais abuser je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en visualisation et qui me visualise la fiche suivante
merci bonne soirée
"michdenis" a écrit dans le message de news: ihkq7j$j3n$
Bonjour,
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
super merci
bon je vais abuser
je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en
visualisation et qui me visualise la fiche suivante
merci
bonne soirée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ihkq7j$j3n$1@speranza.aioe.org...
Bonjour,
Et pour compléter la réponse d'Isabelle,
La propriété Multiline = True ET WordWrap = True
MichD
--------------------------------------------
"j@b" a écrit dans le message de groupe de discussion :
4d3dcd8c$0$18333$426a74cc@news.free.fr...
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de
donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte.
Coment faire pour avoir un retour à la ligne automatique en fonction de la
largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
*********************************************************************************
bon je vais abuser je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en visualisation et qui me visualise la fiche suivante
merci bonne soirée
"michdenis" a écrit dans le message de news: ihkq7j$j3n$
Bonjour,
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
michdenis
Voici un fichier Exemple (une façon de faire) pour la gestion des modifications d'une base de données à l'aide d'un formulaire
http://cjoint.com/?0byw4LasMVR
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3df23e$0$13843$
super merci
bon je vais abuser je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en visualisation et qui me visualise la fiche suivante
merci bonne soirée
"michdenis" a écrit dans le message de news: ihkq7j$j3n$
Bonjour,
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
Voici un fichier Exemple (une façon de faire) pour la gestion
des modifications d'une base de données à l'aide d'un formulaire
http://cjoint.com/?0byw4LasMVR
MichD
--------------------------------------------
"j@b" a écrit dans le message de groupe de discussion : 4d3df23e$0$13843$426a74cc@news.free.fr...
super merci
bon je vais abuser
je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en
visualisation et qui me visualise la fiche suivante
merci
bonne soirée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ihkq7j$j3n$1@speranza.aioe.org...
Bonjour,
Et pour compléter la réponse d'Isabelle,
La propriété Multiline = True ET WordWrap = True
MichD
--------------------------------------------
"j@b" a écrit dans le message de groupe de discussion :
4d3dcd8c$0$18333$426a74cc@news.free.fr...
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de
donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte.
Coment faire pour avoir un retour à la ligne automatique en fonction de la
largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
*********************************************************************************
Voici un fichier Exemple (une façon de faire) pour la gestion des modifications d'une base de données à l'aide d'un formulaire
http://cjoint.com/?0byw4LasMVR
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3df23e$0$13843$
super merci
bon je vais abuser je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en visualisation et qui me visualise la fiche suivante
merci bonne soirée
"michdenis" a écrit dans le message de news: ihkq7j$j3n$
Bonjour,
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
j
Géant !! il y a tout ce que je souhaite A moi a l'adapter Milles Merci
"michdenis" a écrit dans le message de news: ihkscs$o4n$
Voici un fichier Exemple (une façon de faire) pour la gestion des modifications d'une base de données à l'aide d'un formulaire
http://cjoint.com/?0byw4LasMVR
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3df23e$0$13843$
super merci
bon je vais abuser je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en visualisation et qui me visualise la fiche suivante
merci bonne soirée
"michdenis" a écrit dans le message de news: ihkq7j$j3n$
Bonjour,
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
Géant !!
il y a tout ce que je souhaite
A moi a l'adapter
Milles Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ihkscs$o4n$1@speranza.aioe.org...
Voici un fichier Exemple (une façon de faire) pour la gestion
des modifications d'une base de données à l'aide d'un formulaire
http://cjoint.com/?0byw4LasMVR
MichD
--------------------------------------------
"j@b" a écrit dans le message de groupe de discussion :
4d3df23e$0$13843$426a74cc@news.free.fr...
super merci
bon je vais abuser
je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en
visualisation et qui me visualise la fiche suivante
merci
bonne soirée
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ihkq7j$j3n$1@speranza.aioe.org...
Bonjour,
Et pour compléter la réponse d'Isabelle,
La propriété Multiline = True ET WordWrap = True
MichD
--------------------------------------------
"j@b" a écrit dans le message de groupe de discussion :
4d3dcd8c$0$18333$426a74cc@news.free.fr...
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de
donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte.
Coment faire pour avoir un retour à la ligne automatique en fonction de
la
largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
UserForm2.Show
End If
End If
End Sub
*********************************************************************************
Géant !! il y a tout ce que je souhaite A moi a l'adapter Milles Merci
"michdenis" a écrit dans le message de news: ihkscs$o4n$
Voici un fichier Exemple (une façon de faire) pour la gestion des modifications d'une base de données à l'aide d'un formulaire
http://cjoint.com/?0byw4LasMVR
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3df23e$0$13843$
super merci
bon je vais abuser je souhaiterai ajouter dans l'userform un bouton qui détruit le fiche en visualisation et qui me visualise la fiche suivante
merci bonne soirée
"michdenis" a écrit dans le message de news: ihkq7j$j3n$
Bonjour,
Et pour compléter la réponse d'Isabelle, La propriété Multiline = True ET WordWrap = True
MichD -------------------------------------------- "" a écrit dans le message de groupe de discussion : 4d3dcd8c$0$18333$
Bonjour,
Voilà j'utilise cette macro pour afficher dans un Userform ma ligne de donnée lorsque je clic en colonne A.
Par contre ma colonne qui est en "H" contient beaucoup de texte. Coment faire pour avoir un retour à la ligne automatique en fonction de la largeur imposé dans le userform
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A2:A100]) Is Nothing And Target.Count = 1 Then If Target <> "" Then UserForm2.Show End If End If End Sub *********************************************************************************
