Probleme sur excel
Fermé
daniel
-
13 janv. 2009 à 11:58
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 19 janv. 2009 à 10:06
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 19 janv. 2009 à 10:06
A voir également:
- Probleme sur excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Calculer une moyenne sur excel - Guide
- Comment aller à la ligne sur excel - Guide
- Word et excel gratuit - Guide
7 réponses
m@rina
Messages postés
21076
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
6 novembre 2024
11 346
13 janv. 2009 à 13:01
13 janv. 2009 à 13:01
Bonjour,
Pour moi, c'est pas clair...
S'il s'agit d'avoir une liste numérotée de 1 à 40, il suffit de taper Table no 1 dans une cellule et de tirer jusqu'à 40.
Je n'ai sans doute rien compris.
m@rina
Pour moi, c'est pas clair...
S'il s'agit d'avoir une liste numérotée de 1 à 40, il suffit de taper Table no 1 dans une cellule et de tirer jusqu'à 40.
Je n'ai sans doute rien compris.
m@rina
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
13 janv. 2009 à 13:03
13 janv. 2009 à 13:03
tu veux l'écrire sur une nouvelle feuille?
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
13 janv. 2009 à 13:11
13 janv. 2009 à 13:11
je te propose ce code à placer dans un module
Sub creation_liste()
Dim C As Variant
For Each C In workshheets
If C.Name = "Ajout" Then
'la feuille existe : la liste est mise à jour
' on efface
Range("A2:A100").ClearContents
Else
'il faut créer la feuille 'Ajout'
End If
Next
Sheets.Add
ActiveSheet.Name = "Ajout"
i = 2
For Each C In Worksheets
Sheets("Ajout").Cells(i, 1).Value = C.Name
i = i + 1
Next
End Sub
Sub creation_liste()
Dim C As Variant
For Each C In workshheets
If C.Name = "Ajout" Then
'la feuille existe : la liste est mise à jour
' on efface
Range("A2:A100").ClearContents
Else
'il faut créer la feuille 'Ajout'
End If
Next
Sheets.Add
ActiveSheet.Name = "Ajout"
i = 2
For Each C In Worksheets
Sheets("Ajout").Cells(i, 1).Value = C.Name
i = i + 1
Next
End Sub
perondaniel
Messages postés
2
Date d'inscription
mardi 13 janvier 2009
Statut
Membre
Dernière intervention
14 janvier 2009
14 janv. 2009 à 10:55
14 janv. 2009 à 10:55
merci de m'avoir repondu
mais malheureusement ce n'est pas la reponse que j'attendai
bonne journee
daniel
mais malheureusement ce n'est pas la reponse que j'attendai
bonne journee
daniel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
14 janv. 2009 à 11:43
14 janv. 2009 à 11:43
voici mon question
on dit ma question mais je nechipotte...
sur excel j'ai plusieures feuilles de 0 a 40 intitulees table N°
et je voudrai incrementé automatiquement chaque N° dans une liste
un incrément automatique qui relié un objet feuille à un objet cellule ou un tableau dynamique
il n' y a pas d'autres solutions que de passer par VBA
les formules excel relie les objets cellules aux objets cellules....
pouvez vous me depanner sur le sujet
j'ai essayé
d'avance merci
Daniel
Thi is my pleasure
Roger
on dit ma question mais je nechipotte...
sur excel j'ai plusieures feuilles de 0 a 40 intitulees table N°
et je voudrai incrementé automatiquement chaque N° dans une liste
un incrément automatique qui relié un objet feuille à un objet cellule ou un tableau dynamique
il n' y a pas d'autres solutions que de passer par VBA
les formules excel relie les objets cellules aux objets cellules....
pouvez vous me depanner sur le sujet
j'ai essayé
d'avance merci
Daniel
Thi is my pleasure
Roger
perondaniel
Messages postés
2
Date d'inscription
mardi 13 janvier 2009
Statut
Membre
Dernière intervention
14 janvier 2009
14 janv. 2009 à 18:25
14 janv. 2009 à 18:25
bien recu ton message mais vba pour moi est un peu compliqué et je ne sais comment faire
merci si tu peux me depanner
merci si tu peux me depanner
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
19 janv. 2009 à 10:06
19 janv. 2009 à 10:06
1) créer une macro comme ça
sous Xl 2003 ou 2007 : Alt F11 ( accès au module visual basic)
2) menu : insertion /module ( le module s'appelle module1 : il est vide)
dans la page principale (la feuille blanche) tu fais un copier coller de la macro que j'ai écris)
3) click sur enregistrer
la macro va créer un feuille "ajout" et dans les cellules A2 à Axx tu auras une liste des onglets
bien sur dans cette liste figurera aussi toutes les autres feuilles dont la feuille "Ajout"
pour executer cette macro : 2 solutions A) à partir du module vba click dans la macro puis sur le triangle vert (barre d'outils)
B) il faut créer un bouton sur une feuille excel et lui affecter la macro.
Si cela ne te conviens pas explique mieux ton problème.
A+
sous Xl 2003 ou 2007 : Alt F11 ( accès au module visual basic)
2) menu : insertion /module ( le module s'appelle module1 : il est vide)
dans la page principale (la feuille blanche) tu fais un copier coller de la macro que j'ai écris)
3) click sur enregistrer
la macro va créer un feuille "ajout" et dans les cellules A2 à Axx tu auras une liste des onglets
bien sur dans cette liste figurera aussi toutes les autres feuilles dont la feuille "Ajout"
pour executer cette macro : 2 solutions A) à partir du module vba click dans la macro puis sur le triangle vert (barre d'outils)
B) il faut créer un bouton sur une feuille excel et lui affecter la macro.
Si cela ne te conviens pas explique mieux ton problème.
A+