Question sur excel
Fermé
ChGlab
Messages postés
50
Date d'inscription
vendredi 18 octobre 2002
Statut
Membre
Dernière intervention
8 septembre 2008
-
11 mai 2005 à 21:15
Utilisateur anonyme - 12 mai 2005 à 01:42
Utilisateur anonyme - 12 mai 2005 à 01:42
A voir également:
- Question sur excel
- Liste déroulante excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Si et excel - Guide
- Comment aller à la ligne sur excel - Guide
- Trier sur excel - Guide
2 réponses
Salut ChGlab
Pour la 1: Format
cellule
personnalisée
personnaliser la cellule:"00 "## ###
il ne reste plus qu'a taper 10103
Pour la 2: Il se fait et je n'ai pas bien compris la question .Si tu peux me donner plus de détails ou un ex
pour la 3 la cellule est:=Puissance(Nbre;2)
Bonne soirée
@+
Pour la 1: Format
cellule
personnalisée
personnaliser la cellule:"00 "## ###
il ne reste plus qu'a taper 10103
Pour la 2: Il se fait et je n'ai pas bien compris la question .Si tu peux me donner plus de détails ou un ex
pour la 3 la cellule est:=Puissance(Nbre;2)
Bonne soirée
@+
Utilisateur anonyme
12 mai 2005 à 01:42
12 mai 2005 à 01:42
Bonjour,
Pour le 2, c'est possible en VBA, en mode création
un double clic sur la liste déroulante et tu y colle le code suivant.
Attention, il te faudra changer le nom des combos
et des feuilles s'il y a lieu.
Je suis parti de 3 combos sur la Feuil1.
Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "1": ComboBox2.ListFillRange = "Feuil2!A1:A2"
Case "2": ComboBox2.ListFillRange = "Feuil2!A2:A3"
Case "3": ComboBox2.ListFillRange = "Feuil2!A3:A4"
Case "4": ComboBox2.ListFillRange = "Feuil2!A2:A4"
Case Else: DoEvents
End Select
End Sub
'
Lupin
Pour le 2, c'est possible en VBA, en mode création
un double clic sur la liste déroulante et tu y colle le code suivant.
Attention, il te faudra changer le nom des combos
et des feuilles s'il y a lieu.
Je suis parti de 3 combos sur la Feuil1.
Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "1": ComboBox2.ListFillRange = "Feuil2!A1:A2"
Case "2": ComboBox2.ListFillRange = "Feuil2!A2:A3"
Case "3": ComboBox2.ListFillRange = "Feuil2!A3:A4"
Case "4": ComboBox2.ListFillRange = "Feuil2!A2:A4"
Case Else: DoEvents
End Select
End Sub
'
Lupin