Creation dossier par rapport a une valeur : cellule excel
Résolu/Fermé
math74200
Messages postés
18
Date d'inscription
mardi 27 octobre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
-
27 oct. 2015 à 16:54
math74200 Messages postés 18 Date d'inscription mardi 27 octobre 2015 Statut Membre Dernière intervention 30 octobre 2015 - 29 oct. 2015 à 19:55
math74200 Messages postés 18 Date d'inscription mardi 27 octobre 2015 Statut Membre Dernière intervention 30 octobre 2015 - 29 oct. 2015 à 19:55
A voir également:
- Creation dossier par rapport a une valeur : cellule excel
- Dossier appdata - Guide
- Creation compte gmail - Guide
- Mettre un mot de passe sur un dossier - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
23 réponses
math74200
Messages postés
18
Date d'inscription
mardi 27 octobre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
29 oct. 2015 à 18:10
29 oct. 2015 à 18:10
ça marche bien avec le click super
par contre je voulais savoir avec mon bouton rajout ligne on pouvais automatiquement avoir un numéro de dossier dans la colonne lien.
par exemple je clique sur mon bouton RAJOUT LIGNE et une ligne se rajoute automatiquement en ligne 6 avec un numero 1 dans la colonne L6 lien qui sera mon dossier 1 lien hypertexte . Si je clique sur RAHOUT LIGNE encore une ligne se met en ligne 7 et un numero 2 dans la colone L7 lien qui sera mon dossier 2 lien hypertexte etcc
par contre je voulais savoir avec mon bouton rajout ligne on pouvais automatiquement avoir un numéro de dossier dans la colonne lien.
par exemple je clique sur mon bouton RAJOUT LIGNE et une ligne se rajoute automatiquement en ligne 6 avec un numero 1 dans la colonne L6 lien qui sera mon dossier 1 lien hypertexte . Si je clique sur RAHOUT LIGNE encore une ligne se met en ligne 7 et un numero 2 dans la colone L7 lien qui sera mon dossier 2 lien hypertexte etcc
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
29 oct. 2015 à 18:18
29 oct. 2015 à 18:18
Ce que tu veux faire, il n'y a que toi qui le sait. Le plus simple avec ce que l'on t'a donné , c'est de mettre une inputBox dans ton bouton avec les demandes de ligne de nom etc. Comme l'exemple de la suppression de ligne. Quand tu ne sais pas sers toi de l'enregistreur de macro.
Si tu rencontre des problème, tu reviens sur ce forum
Bon courage
Si tu rencontre des problème, tu reviens sur ce forum
Bon courage
math74200
Messages postés
18
Date d'inscription
mardi 27 octobre 2015
Statut
Membre
Dernière intervention
30 octobre 2015
29 oct. 2015 à 19:55
29 oct. 2015 à 19:55
re ,
j'ai trouvé une commande pour incrémenter dans mon bouton la valeur de ma colonne voici mon macro
Sub Macro2()
'
' Macro2 Macro
'
'
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Add Key:=Range("Tableau2[#All,[DATE]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J5000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("L6").Value = ActiveSheet.Range("L6").Value + 1
End Sub
la ligne que j'ai rajouté c'est la dernière. sauf qu'au lieu que cela m'incrémente cellule par cellule ça m'incrémente que dans la cellule L6 c'est normal?
Merci d'avance
j'ai trouvé une commande pour incrémenter dans mon bouton la valeur de ma colonne voici mon macro
Sub Macro2()
'
' Macro2 Macro
'
'
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Add Key:=Range("Tableau2[#All,[DATE]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J5000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("L6").Value = ActiveSheet.Range("L6").Value + 1
End Sub
la ligne que j'ai rajouté c'est la dernière. sauf qu'au lieu que cela m'incrémente cellule par cellule ça m'incrémente que dans la cellule L6 c'est normal?
Merci d'avance