Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Rechercher valeur croisant colonne et ligne

Rechercher valeur croisant colonne et ligne

3 réponses
Avatar
crolegoogle
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"

Merci de votre aide
Cordialement
Crole
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
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


Avatar
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 -



Avatar
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