prob vba

Denis

07/02/2004 à 16:29

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Range(Chr(Target.Column + 64) & "60").Value
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) & "62").Value
UserForm1.TextBox3.Text = Range(Chr(Target.Column + 64) & "64").Value
End Sub

DM

"Nicolas S" a écrit dans le message news:

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

Jean-François Aubert

07/02/2004 à 16:38

Salut Nicolas,

'dans le module de l'UserForm1
Private Sub UserForm_Initialize()
Me.TextBox1 = Cells(60, ActiveCell.Column)
Me.TextBox2 = Cells(62, ActiveCell.Column)
Me.TextBox3 = Cells(64, ActiveCell.Column)
End Sub

'dans un module standard
Sub lance_un_userform()
UserForm1.Show
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

"Nicolas S" a écrit dans le message de
news:

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

Nicolas S

07/02/2004 à 17:17

Message en plusieurs parties et au format MIME.

------=_NextPart_000_00F3_01C3ED9E.4DCB7160
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

bonjour et merci

OK ca marche....... mais je ne me sais plus comment faire pour que je puisse
travailler sur la feuille quand un user form est activé.

Denis a écrit dans le message ...

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Range(Chr(Target.Column + 64) & "60").Value
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) & "62").Value
UserForm1.TextBox3.Text = Range(Chr(Target.Column + 64) & "64").Value
End Sub

DM

"Nicolas S" a écrit dans le message news:

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

------=_NextPart_000_00F3_01C3ED9E.4DCB7160
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4134.600" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>bonjour et merci<BR><BR>OK ca marche....... mais je ne me
sais plus comment faire pour que je puisse<BR>travailler sur la feuille quand un
user form est activé.<BR><BR><BR>Denis a écrit dans le message
...<BR>>Bonjour,<BR>><BR>>Private Sub Worksheet_SelectionChange(ByVal
Target As Range)<BR>>    UserForm1.TextBox1.Text =
Range(Chr(Target.Column + 64) & "60").Value<BR>>   
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) &
"62").Value<BR>>    UserForm1.TextBox3.Text =
Range(Chr(Target.Column + 64) & "64").Value<BR>>End
Sub<BR>><BR>>DM<BR>><BR>>"Nicolas S" <<A
href="mailto:"></A> > a
écrit dans le message
news:<BR>><BR>>&g t;
Bonjour et bon Week end.<BR>>><BR>>>     Je
souhaiterais réaliser un code pour que dans des textbox d'un<BR>>> user
form, s'affichent les valeurs des lignes 60, 62, 64, de la<BR>>> colonne
de la cellule active. et bien sûr que les valeurs des TB<BR>>> changent
quand la cellule active change de
colonne.<BR>>><BR>>>     Merci aux contribuveurs
de ce forum pour la pertinence de leurs<BR>>> réponses et leur bonne
humeur.<BR>>><BR>>>         
Nicolas   (plus adroit avec son chalumeau, son poste à
souder<BR>>> ou sa bétonnière qu'avec son
clavier)<BR>><BR><BR></BODY></HTML>

------=_NextPart_000_00F3_01C3ED9E.4DCB7160--

Message en plusieurs parties et au format MIME.

------=_NextPart_000_00F3_01C3ED9E.4DCB7160
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

bonjour et merci

OK ca marche....... mais je ne me sais plus comment faire pour que je puisse
travailler sur la feuille quand un user form est activé.

Denis a écrit dans le message ...

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Range(Chr(Target.Column + 64) & "60").Value
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) & "62").Value
UserForm1.TextBox3.Text = Range(Chr(Target.Column + 64) & "64").Value
End Sub

DM

"Nicolas S" <mcnsaillard@libertysurf.fr> a écrit dans le message news:
8fb2e09d.0402070453.47628aa3@posting.google.com...

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

------=_NextPart_000_00F3_01C3ED9E.4DCB7160
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4134.600" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>bonjour et merci<BR><BR>OK ca marche....... mais je ne me
sais plus comment faire pour que je puisse<BR>travailler sur la feuille quand un
user form est activé.<BR><BR><BR>Denis a écrit dans le message
...<BR>>Bonjour,<BR>><BR>>Private Sub Worksheet_SelectionChange(ByVal
Target As Range)<BR>>    UserForm1.TextBox1.Text =
Range(Chr(Target.Column + 64) & "60").Value<BR>>   
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) &
"62").Value<BR>>    UserForm1.TextBox3.Text =
Range(Chr(Target.Column + 64) & "64").Value<BR>>End
Sub<BR>><BR>>DM<BR>><BR>>"Nicolas S" <<A
href="mailto:mcnsaillard@libertysurf.fr">mcnsaillard@libertysurf.fr</A> > a
écrit dans le message
news:<BR>>8fb2e09d.0402070453.47628aa3@posting.google.com...<BR>>&g t;
Bonjour et bon Week end.<BR>>><BR>>>     Je
souhaiterais réaliser un code pour que dans des textbox d'un<BR>>> user
form, s'affichent les valeurs des lignes 60, 62, 64, de la<BR>>> colonne
de la cellule active. et bien sûr que les valeurs des TB<BR>>> changent
quand la cellule active change de
colonne.<BR>>><BR>>>     Merci aux contribuveurs
de ce forum pour la pertinence de leurs<BR>>> réponses et leur bonne
humeur.<BR>>><BR>>>         
Nicolas   (plus adroit avec son chalumeau, son poste à
souder<BR>>> ou sa bétonnière qu'avec son
clavier)<BR>><BR><BR></BODY></HTML>

------=_NextPart_000_00F3_01C3ED9E.4DCB7160--

Vous avez filtré cet utilisateur ! Consultez son message

Message en plusieurs parties et au format MIME.

------=_NextPart_000_00F3_01C3ED9E.4DCB7160
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

bonjour et merci

OK ca marche....... mais je ne me sais plus comment faire pour que je puisse
travailler sur la feuille quand un user form est activé.

Denis a écrit dans le message ...

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Range(Chr(Target.Column + 64) & "60").Value
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) & "62").Value
UserForm1.TextBox3.Text = Range(Chr(Target.Column + 64) & "64").Value
End Sub

DM

"Nicolas S" a écrit dans le message news:

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

------=_NextPart_000_00F3_01C3ED9E.4DCB7160
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4134.600" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>bonjour et merci<BR><BR>OK ca marche....... mais je ne me
sais plus comment faire pour que je puisse<BR>travailler sur la feuille quand un
user form est activé.<BR><BR><BR>Denis a écrit dans le message
...<BR>>Bonjour,<BR>><BR>>Private Sub Worksheet_SelectionChange(ByVal
Target As Range)<BR>>    UserForm1.TextBox1.Text =
Range(Chr(Target.Column + 64) & "60").Value<BR>>   
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) &
"62").Value<BR>>    UserForm1.TextBox3.Text =
Range(Chr(Target.Column + 64) & "64").Value<BR>>End
Sub<BR>><BR>>DM<BR>><BR>>"Nicolas S" <<A
href="mailto:"></A> > a
écrit dans le message
news:<BR>><BR>>&g t;
Bonjour et bon Week end.<BR>>><BR>>>     Je
souhaiterais réaliser un code pour que dans des textbox d'un<BR>>> user
form, s'affichent les valeurs des lignes 60, 62, 64, de la<BR>>> colonne
de la cellule active. et bien sûr que les valeurs des TB<BR>>> changent
quand la cellule active change de
colonne.<BR>>><BR>>>     Merci aux contribuveurs
de ce forum pour la pertinence de leurs<BR>>> réponses et leur bonne
humeur.<BR>>><BR>>>         
Nicolas   (plus adroit avec son chalumeau, son poste à
souder<BR>>> ou sa bétonnière qu'avec son
clavier)<BR>><BR><BR></BODY></HTML>

------=_NextPart_000_00F3_01C3ED9E.4DCB7160--

Nicolas S

07/02/2004 à 20:06

Message en plusieurs parties et au format MIME.

------=_NextPart_000_0165_01C3EDB5.D14AA760
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

C'est bon j'ai trouvé :-)))) sur..... ECXELABO bien sûr par une astuce de Laurent Longre je crois: http://www.excelabo.net/xl/userforms.php#usfnonmodal

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

et dans le code de la feuille:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

assolement.TextBox1 = Cells(1, ActiveCell.Column - 2)
assolement.TextBox2 = Cells(60, ActiveCell.Column - 2)
assolement.TextBox3 = Cells(62, ActiveCell.Column - 2)
assolement.TextBox4 = Cells(64, ActiveCell.Column - 2)
'il y a 45 TB
end sub

J'ai encore un petit problème, quand l'user form n'est pas activé et que je change une valeur de la feuille, il y a un temps d'attente: j'ai essayé de placer une instruction en début de code pour détecter si l'UF est actif mais sans résultat :-((

Nicolas S a écrit dans le message ...
bonjour et merci

OK ca marche....... mais je ne me sais plus comment faire pour que je puisse
travailler sur la feuille quand un user form est activé.

Denis a écrit dans le message ...

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Range(Chr(Target.Column + 64) & "60").Value
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) & "62").Value
UserForm1.TextBox3.Text = Range(Chr(Target.Column + 64) & "64").Value
End Sub

DM

"Nicolas S" a écrit dans le message news:

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

------=_NextPart_000_0165_01C3EDB5.D14AA760
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4134.600" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>C'est bon j'ai trouvé :-)))) sur.....  ECXELABO bien
sûr par une astuce de Laurent Longre je crois: <A
href="http://www.excelabo.net/xl/userforms.php#usfnonmodal">http://www. excelabo.net/xl/userforms.php#usfnonmodal</A></FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> Private Sub UserForm_Activate()<BR>  
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1<BR> End
Sub<BR></FONT></DIV>
<DIV><FONT size=2>et dans le code de la feuille:</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Private Sub Worksheet_SelectionChange(ByVal Target As
Range)</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>    assolement.TextBox1 = Cells(1,
ActiveCell.Column - 2)<BR>    assolement.TextBox2 = Cells(60,
ActiveCell.Column - 2)<BR>    assolement.TextBox3 = Cells(62,
ActiveCell.Column - 2)<BR>    assolement.TextBox4 = Cells(64,
ActiveCell.Column - 2)</FONT></DIV>
<DIV><FONT size=2>    'il y a 45 TB<BR>end sub</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>J'ai encore un petit problème, quand l'user form n'est pas
activé et que je change une valeur de la feuille, il y a un temps d'attente:
j'ai essayé de placer une instruction en début de code pour détecter si l'UF est
actif mais sans résultat :-((</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>           
        </DIV></FONT>
<BLOCKQUOTE
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid">
<DIV>Nicolas S a écrit dans le message
<C032N0$F5C$...</DIV>bonjour et merci<BR><BR>OK ca
marche....... mais je ne me sais plus comment faire pour que je
puisse<BR>travailler sur la feuille quand un user form est
activé.<BR><BR><BR>Denis a écrit dans le message
...<BR>>Bonjour,<BR>><BR>>Private Sub Worksheet_SelectionChange(ByVal
Target As Range)<BR>>    UserForm1.TextBox1.Text =
Range(Chr(Target.Column + 64) & "60").Value<BR>>   
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) &
"62").Value<BR>>    UserForm1.TextBox3.Text =
Range(Chr(Target.Column + 64) & "64").Value<BR>>End
Sub<BR>><BR>>DM<BR>><BR>>"Nicolas S" <<A
href="mailto:"></A> > a
écrit dans le message
news:<BR>><BR>>&g t;
Bonjour et bon Week end.<BR>>><BR>>>     Je
souhaiterais réaliser un code pour que dans des textbox d'un<BR>>> user
form, s'affichent les valeurs des lignes 60, 62, 64, de la<BR>>> colonne
de la cellule active. et bien sûr que les valeurs des TB<BR>>> changent
quand la cellule active change de
colonne.<BR>>><BR>>>     Merci aux
contribuveurs de ce forum pour la pertinence de leurs<BR>>> réponses et
leur bonne
humeur.<BR>>><BR>>>         
Nicolas   (plus adroit avec son chalumeau, son poste à
souder<BR>>> ou sa bétonnière qu'avec son
clavier)<BR>><BR><BR></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_0165_01C3EDB5.D14AA760--

Message en plusieurs parties et au format MIME.

------=_NextPart_000_0165_01C3EDB5.D14AA760
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

C'est bon j'ai trouvé :-)))) sur..... ECXELABO bien sûr par une astuce de Laurent Longre je crois: http://www.excelabo.net/xl/userforms.php#usfnonmodal

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

et dans le code de la feuille:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

assolement.TextBox1 = Cells(1, ActiveCell.Column - 2)
assolement.TextBox2 = Cells(60, ActiveCell.Column - 2)
assolement.TextBox3 = Cells(62, ActiveCell.Column - 2)
assolement.TextBox4 = Cells(64, ActiveCell.Column - 2)
'il y a 45 TB
end sub

J'ai encore un petit problème, quand l'user form n'est pas activé et que je change une valeur de la feuille, il y a un temps d'attente: j'ai essayé de placer une instruction en début de code pour détecter si l'UF est actif mais sans résultat :-((

Nicolas S a écrit dans le message ...
bonjour et merci

OK ca marche....... mais je ne me sais plus comment faire pour que je puisse
travailler sur la feuille quand un user form est activé.

Denis a écrit dans le message ...

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Range(Chr(Target.Column + 64) & "60").Value
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) & "62").Value
UserForm1.TextBox3.Text = Range(Chr(Target.Column + 64) & "64").Value
End Sub

DM

"Nicolas S" <mcnsaillard@libertysurf.fr> a écrit dans le message news:
8fb2e09d.0402070453.47628aa3@posting.google.com...

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

------=_NextPart_000_0165_01C3EDB5.D14AA760
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4134.600" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>C'est bon j'ai trouvé :-)))) sur.....  ECXELABO bien
sûr par une astuce de Laurent Longre je crois: <A
href="http://www.excelabo.net/xl/userforms.php#usfnonmodal">http://www. excelabo.net/xl/userforms.php#usfnonmodal</A></FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> Private Sub UserForm_Activate()<BR>  
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1<BR> End
Sub<BR></FONT></DIV>
<DIV><FONT size=2>et dans le code de la feuille:</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Private Sub Worksheet_SelectionChange(ByVal Target As
Range)</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>    assolement.TextBox1 = Cells(1,
ActiveCell.Column - 2)<BR>    assolement.TextBox2 = Cells(60,
ActiveCell.Column - 2)<BR>    assolement.TextBox3 = Cells(62,
ActiveCell.Column - 2)<BR>    assolement.TextBox4 = Cells(64,
ActiveCell.Column - 2)</FONT></DIV>
<DIV><FONT size=2>    'il y a 45 TB<BR>end sub</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>J'ai encore un petit problème, quand l'user form n'est pas
activé et que je change une valeur de la feuille, il y a un temps d'attente:
j'ai essayé de placer une instruction en début de code pour détecter si l'UF est
actif mais sans résultat :-((</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>           
        </DIV></FONT>
<BLOCKQUOTE
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid">
<DIV>Nicolas S <MCNSAILLARD@LIBERTYSURF.FR>a écrit dans le message
<C032N0$F5C$1@NEWS.TISCALI.FR>...</DIV>bonjour et merci<BR><BR>OK ca
marche....... mais je ne me sais plus comment faire pour que je
puisse<BR>travailler sur la feuille quand un user form est
activé.<BR><BR><BR>Denis a écrit dans le message
...<BR>>Bonjour,<BR>><BR>>Private Sub Worksheet_SelectionChange(ByVal
Target As Range)<BR>>    UserForm1.TextBox1.Text =
Range(Chr(Target.Column + 64) & "60").Value<BR>>   
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) &
"62").Value<BR>>    UserForm1.TextBox3.Text =
Range(Chr(Target.Column + 64) & "64").Value<BR>>End
Sub<BR>><BR>>DM<BR>><BR>>"Nicolas S" <<A
href="mailto:mcnsaillard@libertysurf.fr">mcnsaillard@libertysurf.fr</A> > a
écrit dans le message
news:<BR>>8fb2e09d.0402070453.47628aa3@posting.google.com...<BR>>&g t;
Bonjour et bon Week end.<BR>>><BR>>>     Je
souhaiterais réaliser un code pour que dans des textbox d'un<BR>>> user
form, s'affichent les valeurs des lignes 60, 62, 64, de la<BR>>> colonne
de la cellule active. et bien sûr que les valeurs des TB<BR>>> changent
quand la cellule active change de
colonne.<BR>>><BR>>>     Merci aux
contribuveurs de ce forum pour la pertinence de leurs<BR>>> réponses et
leur bonne
humeur.<BR>>><BR>>>         
Nicolas   (plus adroit avec son chalumeau, son poste à
souder<BR>>> ou sa bétonnière qu'avec son
clavier)<BR>><BR><BR></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_0165_01C3EDB5.D14AA760--

Vous avez filtré cet utilisateur ! Consultez son message

Message en plusieurs parties et au format MIME.

------=_NextPart_000_0165_01C3EDB5.D14AA760
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

C'est bon j'ai trouvé :-)))) sur..... ECXELABO bien sûr par une astuce de Laurent Longre je crois: http://www.excelabo.net/xl/userforms.php#usfnonmodal

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

et dans le code de la feuille:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

assolement.TextBox1 = Cells(1, ActiveCell.Column - 2)
assolement.TextBox2 = Cells(60, ActiveCell.Column - 2)
assolement.TextBox3 = Cells(62, ActiveCell.Column - 2)
assolement.TextBox4 = Cells(64, ActiveCell.Column - 2)
'il y a 45 TB
end sub

J'ai encore un petit problème, quand l'user form n'est pas activé et que je change une valeur de la feuille, il y a un temps d'attente: j'ai essayé de placer une instruction en début de code pour détecter si l'UF est actif mais sans résultat :-((

Nicolas S a écrit dans le message ...
bonjour et merci

OK ca marche....... mais je ne me sais plus comment faire pour que je puisse
travailler sur la feuille quand un user form est activé.

Denis a écrit dans le message ...

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Range(Chr(Target.Column + 64) & "60").Value
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) & "62").Value
UserForm1.TextBox3.Text = Range(Chr(Target.Column + 64) & "64").Value
End Sub

DM

"Nicolas S" a écrit dans le message news:

Bonjour et bon Week end.

Je souhaiterais réaliser un code pour que dans des textbox d'un
user form, s'affichent les valeurs des lignes 60, 62, 64, de la
colonne de la cellule active. et bien sûr que les valeurs des TB
changent quand la cellule active change de colonne.

Merci aux contribuveurs de ce forum pour la pertinence de leurs
réponses et leur bonne humeur.

Nicolas (plus adroit avec son chalumeau, son poste à souder
ou sa bétonnière qu'avec son clavier)

------=_NextPart_000_0165_01C3EDB5.D14AA760
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4134.600" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>C'est bon j'ai trouvé :-)))) sur.....  ECXELABO bien
sûr par une astuce de Laurent Longre je crois: <A
href="http://www.excelabo.net/xl/userforms.php#usfnonmodal">http://www. excelabo.net/xl/userforms.php#usfnonmodal</A></FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> Private Sub UserForm_Activate()<BR>  
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1<BR> End
Sub<BR></FONT></DIV>
<DIV><FONT size=2>et dans le code de la feuille:</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Private Sub Worksheet_SelectionChange(ByVal Target As
Range)</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>    assolement.TextBox1 = Cells(1,
ActiveCell.Column - 2)<BR>    assolement.TextBox2 = Cells(60,
ActiveCell.Column - 2)<BR>    assolement.TextBox3 = Cells(62,
ActiveCell.Column - 2)<BR>    assolement.TextBox4 = Cells(64,
ActiveCell.Column - 2)</FONT></DIV>
<DIV><FONT size=2>    'il y a 45 TB<BR>end sub</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>J'ai encore un petit problème, quand l'user form n'est pas
activé et que je change une valeur de la feuille, il y a un temps d'attente:
j'ai essayé de placer une instruction en début de code pour détecter si l'UF est
actif mais sans résultat :-((</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>           
        </DIV></FONT>
<BLOCKQUOTE
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid">
<DIV>Nicolas S a écrit dans le message
<C032N0$F5C$...</DIV>bonjour et merci<BR><BR>OK ca
marche....... mais je ne me sais plus comment faire pour que je
puisse<BR>travailler sur la feuille quand un user form est
activé.<BR><BR><BR>Denis a écrit dans le message
...<BR>>Bonjour,<BR>><BR>>Private Sub Worksheet_SelectionChange(ByVal
Target As Range)<BR>>    UserForm1.TextBox1.Text =
Range(Chr(Target.Column + 64) & "60").Value<BR>>   
UserForm1.TextBox2.Text = Range(Chr(Target.Column + 64) &
"62").Value<BR>>    UserForm1.TextBox3.Text =
Range(Chr(Target.Column + 64) & "64").Value<BR>>End
Sub<BR>><BR>>DM<BR>><BR>>"Nicolas S" <<A
href="mailto:"></A> > a
écrit dans le message
news:<BR>><BR>>&g t;
Bonjour et bon Week end.<BR>>><BR>>>     Je
souhaiterais réaliser un code pour que dans des textbox d'un<BR>>> user
form, s'affichent les valeurs des lignes 60, 62, 64, de la<BR>>> colonne
de la cellule active. et bien sûr que les valeurs des TB<BR>>> changent
quand la cellule active change de
colonne.<BR>>><BR>>>     Merci aux
contribuveurs de ce forum pour la pertinence de leurs<BR>>> réponses et
leur bonne
humeur.<BR>>><BR>>>         
Nicolas   (plus adroit avec son chalumeau, son poste à
souder<BR>>> ou sa bétonnière qu'avec son
clavier)<BR>><BR><BR></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_0165_01C3EDB5.D14AA760--

prob vba

4 réponses

Veuillez sélectionner un problème