Recherche - Userform

Bonsoir,

Comme prévu plus bas, me revoilà avec ma nouvelle idée.

Dans la feuille 1, je saisis le numéro de tatouage d'un animal (plus
surement je lirai un code barres qui s'inscrira dans une cellule de la
colonne A). Je continue à saisir des infos en colonne B, C et D.
Dans la feuille 2, j'ai une sorte d'historique des animaux de l' élevage
: une liste en colonne A avec diverses informations en colonnes B - C -
D - E et F.
Ce que je souhaiterais faire :
- Quand je valide un numéro en feuil1 colonne A, il app araît un
Userform dans le coin droit de la feuille avec les informations
présentes en Feuil2 pour ce même animal.Une Textbox pour le numéro, une
seconde pour l'information de la cellule B...
- Je voudrais également pouvoir continuer à saisir en Feuil1 alors que
le userform est présent.

Merci d'avance pour votre aide.

Julie

Bonsoir,

http://cjoint.com/?fFuVzVv1RZ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 5
UserForm1.Controls("textbox" & i) > Application.Index([BDAnimaux], p, i)
Next i
End If
End If
End Sub

JB


On 31 mai, 20:26, JulieH <Juli...@microsoft.com> wrote:

Bonsoir,

Comme prévu plus bas, me revoilà avec ma nouvelle idée.

Dans la feuille 1, je saisis le numéro de tatouage d'un animal (plus
surement je lirai un code barres qui s'inscrira dans une cellule de la
colonne A). Je continue à saisir des infos en colonne B, C et D.
Dans la feuille 2, j'ai une sorte d'historique des animaux de l'élevage
: une liste en colonne A avec diverses informations en colonnes B - C -
D - E et F.
Ce que je souhaiterais faire :
- Quand je valide un numéro en feuil1 colonne A, il apparaît un
Userform dans le coin droit de la feuille avec les informations
présentes en Feuil2 pour ce même animal.Une Textbox pour le numéro, une
seconde pour l'information de la cellule B...
- Je voudrais également pouvoir continuer à saisir en Feuil1 alors que
le userform est présent.

Merci d'avance pour votre aide.

Julie

Bonsoir et merci pour ta réponse ultra rapide et toujours aussi
efficace. C'est exactement ce que je souhaite réaliser.

Deux questions complémentaires :
Y-t-il la possibilité de continuer à saisir en feuil1 tout en ayant le
userform visible ?
Peut-on changer la couleur du Userform en fonction de la valeur d'une
des cellules. Par exemple dans la colonne F de Feuil2 qui correspondrait
à "Observations", il y aurait OK (dans ce cas userform vert) ou Réf
(dans ce cas Userform rouge.

Julie

Bonsoir,

http://cjoint.com/?fFuVzVv1RZ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 5
UserForm1.Controls("textbox" & i) =
Application.Index([BDAnimaux], p, i)
Next i
End If
End If
End Sub

JB

On 31 mai, 20:26, JulieH <Juli...@microsoft.com> wrote:

Bonsoir,

Comme prévu plus bas, me revoilà avec ma nouvelle idée.

Dans la feuille 1, je saisis le numéro de tatouage d'un anim al (plus
surement je lirai un code barres qui s'inscrira dans une cellule de la
colonne A). Je continue à saisir des infos en colonne B, C et D.
Dans la feuille 2, j'ai une sorte d'historique des animaux de l'élevage
: une liste en colonne A avec diverses informations en colonnes B - C -
D - E et F.
Ce que je souhaiterais faire :
- Quand je valide un numéro en feuil1 colonne A, il apparaît un
Userform dans le coin droit de la feuille avec les informations
présentes en Feuil2 pour ce même animal.Une Textbox pour le numé ro, une
seconde pour l'information de la cellule B...
- Je voudrais également pouvoir continuer à saisir en Feuil1 alors que
le userform est présent.

Merci d'avance pour votre aide.

Julie- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Sur mon poste, le formulaire reste visible pendant la saisie sur
Feuil1.

http://cjoint.com/?fFvElf2Adl

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 6
UserForm1.Controls("textbox" & i) > Application.Index([BDAnimaux], p, i)
Next i
Select Case Application.Index([BDAnimaux], p, 6)
Case "Ok"
UserForm1.BackColor = RGB(0, 255, 0)
Case "Réf"
UserForm1.BackColor = vbRed
Case Else
UserForm1.BackColor = vbWhite
End Select
End If
End If
End Sub


JB

On 31 mai, 21:13, JulieH <Juli...@microsoft.com> wrote:

Bonsoir et merci pour ta réponse ultra rapide et toujours aussi
efficace. C'est exactement ce que je souhaite réaliser.

Deux questions complémentaires :
Y-t-il la possibilité de continuer à saisir en feuil1 tout en ayant le
userform visible ?
Peut-on changer la couleur du Userform en fonction de la valeur d'une
des cellules. Par exemple dans la colonne F de Feuil2 qui correspondrait
à "Observations", il y aurait OK (dans ce cas userform vert) ou Réf
(dans ce cas Userform rouge.

Julie

Bonsoir,
http://cjoint.com/?fFuVzVv1RZ
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 5
UserForm1.Controls("textbox" & i) >>> Application.Index([BDAnimaux], p, i)
Next i
End If
End If
End Sub
JB
On 31 mai, 20:26, JulieH <Juli...@microsoft.com> wrote:

Bonsoir,
Comme prévu plus bas, me revoilà avec ma nouvelle idée.
Dans la feuille 1, je saisis le numéro de tatouage d'un animal (plus
surement je lirai un code barres qui s'inscrira dans une cellule de la
colonne A). Je continue à saisir des infos en colonne B, C et D.
Dans la feuille 2, j'ai une sorte d'historique des animaux de l'élevage
: une liste en colonne A avec diverses informations en colonnes B - C -
D - E et F.
Ce que je souhaiterais faire :
- Quand je valide un numéro en feuil1 colonne A, il apparaît un
Userform dans le coin droit de la feuille avec les informations
présentes en Feuil2 pour ce même animal.Une Textbox pour le numéro, une
seconde pour l'information de la cellule B...
- Je voudrais également pouvoir continuer à saisir en Feuil1 alors que
le userform est présent.
Merci d'avance pour votre aide.
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -

Sur mon poste, le formulaire reste visible pendant la saisie sur
Feuil1.

http://cjoint.com/?fFvElf2Adl

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 6
UserForm1.Controls("textbox" & i) > Application.Index([BDAnimaux], p, i)
Next i
Select Case Application.Index([BDAnimaux], p, 6)
Case "Ok"
UserForm1.BackColor = RGB(0, 255, 0)
Case "Réf"
UserForm1.BackColor = vbRed
Case Else
UserForm1.BackColor = vbWhite
End Select
End If
End If
End Sub


JB

On 31 mai, 21:13, JulieH <Juli...@microsoft.com> wrote:

Bonsoir et merci pour ta réponse ultra rapide et toujours aussi
efficace. C'est exactement ce que je souhaite réaliser.

Deux questions complémentaires :
Y-t-il la possibilité de continuer à saisir en feuil1 tout en ayant le
userform visible ?
Peut-on changer la couleur du Userform en fonction de la valeur d'une
des cellules. Par exemple dans la colonne F de Feuil2 qui correspondrait
à "Observations", il y aurait OK (dans ce cas userform vert) ou Réf
(dans ce cas Userform rouge.

Julie

Bonsoir,
http://cjoint.com/?fFuVzVv1RZ
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 5
UserForm1.Controls("textbox" & i) >>> Application.Index([BDAnimaux], p, i)
Next i
End If
End If
End Sub
JB
On 31 mai, 20:26, JulieH <Juli...@microsoft.com> wrote:

Bonsoir,
Comme prévu plus bas, me revoilà avec ma nouvelle idée.
Dans la feuille 1, je saisis le numéro de tatouage d'un animal (plus
surement je lirai un code barres qui s'inscrira dans une cellule de la
colonne A). Je continue à saisir des infos en colonne B, C et D.
Dans la feuille 2, j'ai une sorte d'historique des animaux de l'élevage
: une liste en colonne A avec diverses informations en colonnes B - C -
D - E et F.
Ce que je souhaiterais faire :
- Quand je valide un numéro en feuil1 colonne A, il apparaît un
Userform dans le coin droit de la feuille avec les informations
présentes en Feuil2 pour ce même animal.Une Textbox pour le numéro, une
seconde pour l'information de la cellule B...
- Je voudrais également pouvoir continuer à saisir en Feuil1 alors que
le userform est présent.
Merci d'avance pour votre aide.
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -

Sur mon poste, le formulaire reste visible pendant la saisie sur
Feuil1.

http://cjoint.com/?fFvElf2Adl

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 6
UserForm1.Controls("textbox" & i) > Application.Index([BDAnimaux], p, i)
Next i
Select Case Application.Index([BDAnimaux], p, 6)
Case "Ok"
UserForm1.BackColor = RGB(0, 255, 0)
Case "Réf"
UserForm1.BackColor = vbRed
Case Else
UserForm1.BackColor = vbWhite
End Select
End If
End If
End Sub


JB

On 31 mai, 21:13, JulieH <Juli...@microsoft.com> wrote:

Bonsoir et merci pour ta réponse ultra rapide et toujours aussi
efficace. C'est exactement ce que je souhaite réaliser.

Deux questions complémentaires :
Y-t-il la possibilité de continuer à saisir en feuil1 tout en ayant le
userform visible ?
Peut-on changer la couleur du Userform en fonction de la valeur d'une
des cellules. Par exemple dans la colonne F de Feuil2 qui correspondrait
à "Observations", il y aurait OK (dans ce cas userform vert) ou Réf
(dans ce cas Userform rouge.

Julie

Bonsoir,
http://cjoint.com/?fFuVzVv1RZ
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 5
UserForm1.Controls("textbox" & i) >>> Application.Index([BDAnimaux], p, i)
Next i
End If
End If
End Sub
JB
On 31 mai, 20:26, JulieH <Juli...@microsoft.com> wrote:

Bonsoir,
Comme prévu plus bas, me revoilà avec ma nouvelle idée.
Dans la feuille 1, je saisis le numéro de tatouage d'un animal (plus
surement je lirai un code barres qui s'inscrira dans une cellule de la
colonne A). Je continue à saisir des infos en colonne B, C et D.
Dans la feuille 2, j'ai une sorte d'historique des animaux de l'élevage
: une liste en colonne A avec diverses informations en colonnes B - C -
D - E et F.
Ce que je souhaiterais faire :
- Quand je valide un numéro en feuil1 colonne A, il apparaît un
Userform dans le coin droit de la feuille avec les informations
présentes en Feuil2 pour ce même animal.Une Textbox pour le numéro, une
seconde pour l'information de la cellule B...
- Je voudrais également pouvoir continuer à saisir en Feuil1 alors que
le userform est présent.
Merci d'avance pour votre aide.
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -

Bonjour,

Après recherche dans les archives, j'ai ajouté :

Private Sub UserForm_Activate()
AppActivate Application.Caption
End Sub

Maintenant tout va bien.

Merci encore pour ton aide.

Julie

Sur mon poste, le formulaire reste visible pendant la saisie sur
Feuil1.

http://cjoint.com/?fFvElf2Adl

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 6
UserForm1.Controls("textbox" & i) =
Application.Index([BDAnimaux], p, i)
Next i
Select Case Application.Index([BDAnimaux], p, 6)
Case "Ok"
UserForm1.BackColor = RGB(0, 255, 0)
Case "Réf"
UserForm1.BackColor = vbRed
Case Else
UserForm1.BackColor = vbWhite
End Select
End If
End If
End Sub

JB

On 31 mai, 21:13, JulieH <Juli...@microsoft.com> wrote:

Bonsoir et merci pour ta réponse ultra rapide et toujours aussi
efficace. C'est exactement ce que je souhaite réaliser.

Deux questions complémentaires :
Y-t-il la possibilité de continuer à saisir en feuil1 tout en ayan t le
userform visible ?
Peut-on changer la couleur du Userform en fonction de la valeur d'une
des cellules. Par exemple dans la colonne F de Feuil2 qui correspondra it
à "Observations", il y aurait OK (dans ce cas userform vert) ou Réf
(dans ce cas Userform rouge.

Julie

Bonsoir,
http://cjoint.com/?fFuVzVv1RZ
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
UserForm1.Show
p = Application.Match(Target, [tatouage], 0)
If Not IsError(p) Then
For i = 1 To 5
UserForm1.Controls("textbox" & i) =
Application.Index([BDAnimaux], p, i)
Next i
End If
End If
End Sub
JB
On 31 mai, 20:26, JulieH <Juli...@microsoft.com> wrote:

Bonsoir,
Comme prévu plus bas, me revoilà avec ma nouvelle idée.
Dans la feuille 1, je saisis le numéro de tatouage d'un an imal (plus
surement je lirai un code barres qui s'inscrira dans une cellule de la
colonne A). Je continue à saisir des infos en colonne B, C et D.
Dans la feuille 2, j'ai une sorte d'historique des animaux d e l'élevage
: une liste en colonne A avec diverses informations en colonnes B - C -
D - E et F.
Ce que je souhaiterais faire :
- Quand je valide un numéro en feuil1 colonne A, i l apparaît un
Userform dans le coin droit de la feuille avec les informations
présentes en Feuil2 pour ce même animal.Une Textbox pour le num éro, une
seconde pour l'information de la cellule B...
- Je voudrais également pouvoir continuer à sais ir en Feuil1 alors que
le userform est présent.
Merci d'avance pour votre aide.
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -

- Afficher le texte des messages précédents -