Bonjour le groupe,
Je souhaite r=E9aliser un classeur qui me servira au calcul de
l'indexation des loyer sous excel 2007
J'ai une feuille de calcul "Base 100" avec pour ent=EAte de colonne les
mois de l'ann=E9e et les ann=E9es pour les lignes
=E0 l'intersection des deux j'ai des valeurs index.
Ma question est la suivante;
Dans un UserForm est-il possible losqu'un choix dans deux listes
d=E9roulantes de l'ann=E9e et du mois, avoir dans un textbox la valeur qui
ce trouve dans la cellule intersection de la feuille "Base 100"
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
JB
Bonjour,
Private Sub UserForm_Initialize() Me.ComboBox1.List = Application.Transpose([B1:M1]) Me.ComboBox2.RowSource = "A2:A" & [A65000].End(xlUp).Row Me.ComboBox1.ListIndex = 0 Me.ComboBox2.ListIndex = 0 Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End Sub
Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
Private Sub ComboBox2_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
JB http://boisgontierjacques.free.fr
On 17 mar, 05:31, wrote:
Bonjour le groupe, Je souhaite réaliser un classeur qui me servira au calcul de l'indexation des loyer sous excel 2007 J'ai une feuille de calcul "Base 100" avec pour entête de colonne les mois de l'année et les années pour les lignes à l'intersection des deux j'ai des valeurs index. Ma question est la suivante; Dans un UserForm est-il possible losqu'un choix dans deux listes déroulantes de l'année et du mois, avoir dans un textbox la valeur qui ce trouve dans la cellule intersection de la feuille "Base 100"
Merci de votre aide Cordialement Crole
Bonjour,
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose([B1:M1])
Me.ComboBox2.RowSource = "A2:A" & [A65000].End(xlUp).Row
Me.ComboBox1.ListIndex = 0
Me.ComboBox2.ListIndex = 0
Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex +
1, Me.ComboBox1.ListIndex + 1)
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1
Then
Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex
+ 1, Me.ComboBox1.ListIndex + 1)
End If
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1
Then
Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex
+ 1, Me.ComboBox1.ListIndex + 1)
End If
End Sub
JB
http://boisgontierjacques.free.fr
On 17 mar, 05:31, crolegoo...@skynet.be wrote:
Bonjour le groupe,
Je souhaite réaliser un classeur qui me servira au calcul de
l'indexation des loyer sous excel 2007
J'ai une feuille de calcul "Base 100" avec pour entête de colonne les
mois de l'année et les années pour les lignes
à l'intersection des deux j'ai des valeurs index.
Ma question est la suivante;
Dans un UserForm est-il possible losqu'un choix dans deux listes
déroulantes de l'année et du mois, avoir dans un textbox la valeur qui
ce trouve dans la cellule intersection de la feuille "Base 100"
Private Sub UserForm_Initialize() Me.ComboBox1.List = Application.Transpose([B1:M1]) Me.ComboBox2.RowSource = "A2:A" & [A65000].End(xlUp).Row Me.ComboBox1.ListIndex = 0 Me.ComboBox2.ListIndex = 0 Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End Sub
Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
Private Sub ComboBox2_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
JB http://boisgontierjacques.free.fr
On 17 mar, 05:31, wrote:
Bonjour le groupe, Je souhaite réaliser un classeur qui me servira au calcul de l'indexation des loyer sous excel 2007 J'ai une feuille de calcul "Base 100" avec pour entête de colonne les mois de l'année et les années pour les lignes à l'intersection des deux j'ai des valeurs index. Ma question est la suivante; Dans un UserForm est-il possible losqu'un choix dans deux listes déroulantes de l'année et du mois, avoir dans un textbox la valeur qui ce trouve dans la cellule intersection de la feuille "Base 100"
Merci de votre aide Cordialement Crole
JB
http://cjoint.com/?drgpPhuJrA
JB
On 17 mar, 06:14, JB wrote:
Bonjour,
Private Sub UserForm_Initialize() Me.ComboBox1.List = Application.Transpose([B1:M1]) Me.ComboBox2.RowSource = "A2:A" & [A65000].End(xlUp).Row Me.ComboBox1.ListIndex = 0 Me.ComboBox2.ListIndex = 0 Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End Sub
Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListInde x + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
Private Sub ComboBox2_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListInde x + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
JBhttp://boisgontierjacques.free.fr
On 17 mar, 05:31, wrote:
Bonjour le groupe, Je souhaite réaliser un classeur qui me servira au calcul de l'indexation des loyer sous excel 2007 J'ai une feuille de calcul "Base 100" avec pour entête de colonne les mois de l'année et les années pour les lignes à l'intersection des deux j'ai des valeurs index. Ma question est la suivante; Dans un UserForm est-il possible losqu'un choix dans deux listes déroulantes de l'année et du mois, avoir dans un textbox la valeur q ui ce trouve dans la cellule intersection de la feuille "Base 100"
Merci de votre aide Cordialement Crole- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?drgpPhuJrA
JB
On 17 mar, 06:14, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose([B1:M1])
Me.ComboBox2.RowSource = "A2:A" & [A65000].End(xlUp).Row
Me.ComboBox1.ListIndex = 0
Me.ComboBox2.ListIndex = 0
Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex +
1, Me.ComboBox1.ListIndex + 1)
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1
Then
Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListInde x
+ 1, Me.ComboBox1.ListIndex + 1)
End If
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1
Then
Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListInde x
+ 1, Me.ComboBox1.ListIndex + 1)
End If
End Sub
JBhttp://boisgontierjacques.free.fr
On 17 mar, 05:31, crolegoo...@skynet.be wrote:
Bonjour le groupe,
Je souhaite réaliser un classeur qui me servira au calcul de
l'indexation des loyer sous excel 2007
J'ai une feuille de calcul "Base 100" avec pour entête de colonne les
mois de l'année et les années pour les lignes
à l'intersection des deux j'ai des valeurs index.
Ma question est la suivante;
Dans un UserForm est-il possible losqu'un choix dans deux listes
déroulantes de l'année et du mois, avoir dans un textbox la valeur q ui
ce trouve dans la cellule intersection de la feuille "Base 100"
Merci de votre aide
Cordialement
Crole- Masquer le texte des messages précédents -
Private Sub UserForm_Initialize() Me.ComboBox1.List = Application.Transpose([B1:M1]) Me.ComboBox2.RowSource = "A2:A" & [A65000].End(xlUp).Row Me.ComboBox1.ListIndex = 0 Me.ComboBox2.ListIndex = 0 Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListIndex + 1, Me.ComboBox1.ListIndex + 1) End Sub
Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListInde x + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
Private Sub ComboBox2_Change() If Me.ComboBox1.ListIndex <> -1 And Me.ComboBox2.ListIndex <> -1 Then Me.TextBox1 = Application.Index([B2:M100], Me.ComboBox2.ListInde x + 1, Me.ComboBox1.ListIndex + 1) End If End Sub
JBhttp://boisgontierjacques.free.fr
On 17 mar, 05:31, wrote:
Bonjour le groupe, Je souhaite réaliser un classeur qui me servira au calcul de l'indexation des loyer sous excel 2007 J'ai une feuille de calcul "Base 100" avec pour entête de colonne les mois de l'année et les années pour les lignes à l'intersection des deux j'ai des valeurs index. Ma question est la suivante; Dans un UserForm est-il possible losqu'un choix dans deux listes déroulantes de l'année et du mois, avoir dans un textbox la valeur q ui ce trouve dans la cellule intersection de la feuille "Base 100"
Merci de votre aide Cordialement Crole- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
crolegoogle
Bonjour JB
Je te remercie, c'est exactement ce que je souhaitais
très bonne journée à toi et à tous le groupe
Cordialement Crole
Bonjour JB
Je te remercie, c'est exactement ce que je souhaitais