Afficher liste onglets si Stock
Résolu/Fermé
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
-
Modifié le 12 nov. 2017 à 22:22
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 12 nov. 2017 à 23:12
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 12 nov. 2017 à 23:12
A voir également:
- Afficher liste onglets si Stock
- Liste déroulante excel - Guide
- Restaurer onglets chrome - Guide
- Liste déroulante en cascade - Guide
- Afficher mot de passe wifi android - Guide
- Liste de diffusion whatsapp - Guide
3 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 nov. 2017 à 22:27
12 nov. 2017 à 22:27
Bonsoir
Poste un exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici, qu'on puisse avoir une base de travail pour t'aider
Cdlmnt
Via
Poste un exemple de ton fichier sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici, qu'on puisse avoir une base de travail pour t'aider
Cdlmnt
Via
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
12 nov. 2017 à 22:45
12 nov. 2017 à 22:45
bonsoir
voici le lien de mon fichier
https://www.cjoint.com/doc/17_11/GKmvRHZb8ZK_Gestion.xls
voici le lien de mon fichier
https://www.cjoint.com/doc/17_11/GKmvRHZb8ZK_Gestion.xls
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
12 nov. 2017 à 22:57
12 nov. 2017 à 22:57
Re,
Voilà la macro à mettre dans le worsheet de la feuille Stock :
Cdlmnt
Via
Voilà la macro à mettre dans le worsheet de la feuille Stock :
Private Sub Worksheet_Activate()
x = 1
For n = 1 To Sheets.Count
If Sheets(n).Range("A2") = "Stock" Then
x = x + 1
Range("A" & x) = Sheets(n).Name
Range("B" & x) = Sheets(n).Range("G16")
End If
Next
End Sub
Cdlmnt
Via
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
12 nov. 2017 à 23:12
12 nov. 2017 à 23:12
Re
Merci c'est excellent
Cdlmnt
surplus
Merci c'est excellent
Cdlmnt
surplus
