Bonjour;
Pas très bon en macro, j'essaie de créer la fonction suivante:
Dans un classeur de 12 feuilles (un petit inventaire), je souhaite
"ventiler" les lignes de la feuille 1 (les "copier") sur les différentes
feuilles en fonction du contenu des cellules A de chaque ligne.
Si la cellule A de la feuille contient le texte "Xylo", copier cette
ligne sur la première ligne disponible de la feuille No 8, nommée Xyl os.
Etc pour les x éléments de cette feuille 1
Merci de votre collaboration.
Cordialement,
Pierre F.
Bonjour;
Pas très bon en macro, j'essaie de créer la fonction suivante:
Dans un classeur de 12 feuilles (un petit inventaire), je souhaite
"ventiler" les lignes de la feuille 1 (les "copier") sur les différentes
feuilles en fonction du contenu des cellules A de chaque ligne.
Si la cellule A de la feuille contient le texte "Xylo", copier cette
ligne sur la première ligne disponible de la feuille No 8, nommée Xyl os.
Etc pour les x éléments de cette feuille 1
Merci de votre collaboration.
Cordialement,
Pierre F.
Bonjour;
Pas très bon en macro, j'essaie de créer la fonction suivante:
Dans un classeur de 12 feuilles (un petit inventaire), je souhaite
"ventiler" les lignes de la feuille 1 (les "copier") sur les différentes
feuilles en fonction du contenu des cellules A de chaque ligne.
Si la cellule A de la feuille contient le texte "Xylo", copier cette
ligne sur la première ligne disponible de la feuille No 8, nommée Xyl os.
Etc pour les x éléments de cette feuille 1
Merci de votre collaboration.
Cordialement,
Pierre F.
Bonsoir,
Sub inventaire()
Sheets(1).Select
Cells.SpecialCells(xlCellTypeConstants, 23).Select
For s = 2 To Sheets.Count
ligne = 1
mot = Sheets(s).Name
For Each c In Selection
If InStr(c, mot) > 0 Then
Sheets(s).Cells(ligne, 1) = c
Sheets(s).Cells(ligne, 1).Offset(0, 2) = c.Address
ligne = ligne + 1
End If
Next c
Next s
Bonsoir,
Sub inventaire()
Sheets(1).Select
Cells.SpecialCells(xlCellTypeConstants, 23).Select
For s = 2 To Sheets.Count
ligne = 1
mot = Sheets(s).Name
For Each c In Selection
If InStr(c, mot) > 0 Then
Sheets(s).Cells(ligne, 1) = c
Sheets(s).Cells(ligne, 1).Offset(0, 2) = c.Address
ligne = ligne + 1
End If
Next c
Next s
Bonsoir,
Sub inventaire()
Sheets(1).Select
Cells.SpecialCells(xlCellTypeConstants, 23).Select
For s = 2 To Sheets.Count
ligne = 1
mot = Sheets(s).Name
For Each c In Selection
If InStr(c, mot) > 0 Then
Sheets(s).Cells(ligne, 1) = c
Sheets(s).Cells(ligne, 1).Offset(0, 2) = c.Address
ligne = ligne + 1
End If
Next c
Next s
Bonsoir,Merci pour le coupe de main et la promptitude :-)
Pas très bon en macro et vba, j'ai essayé d'adapter ces lignes au
contexte de mon classeur... et ça marche pas trop bien :-)
Comme je souhaite aussi m'améliorer, je vous propose de commenter cette
procédure et vous signaler ce que je ne comprends pas... (je place mon
commentaire au-dessous de vos lignes.Sub inventaire()
Sheets(1).SelectAller à la feuille 1
Cells.SpecialCells(xlCellTypeConstants, 23).SelectPas compris du tout :-((
For s = 2 To Sheets.CountDébut de boucle: depuis 2 jusqu'au nombr e de feuille total?
ligne = 1Aller ligne 1 ??
mot = Sheets(s).NamePas compris. Mot = celui que je cherche sur la feuille 1 ou celui de la
page sur laquelle il faut coller la ligne (ce ne sont pas forcément les
mêmes)For Each c In SelectionQue représente c ? colonne ?? copier?
If InStr(c, mot) > 0 ThenDébut de condition... Pas compris la s yntaxe
Sheets(s).Cells(ligne, 1) = c
Sheets(s).Cells(ligne, 1).Offset(0, 2) = c.AddressPas compris
ligne = ligne + 1Ligne suivante
End IfFin de condition
Next cc suivant
Next spage suivante ??
Merci.
Cordialement,
Pierre F.
Bonsoir,Merci pour le coupe de main et la promptitude :-)
Pas très bon en macro et vba, j'ai essayé d'adapter ces lignes au
contexte de mon classeur... et ça marche pas trop bien :-)
Comme je souhaite aussi m'améliorer, je vous propose de commenter cette
procédure et vous signaler ce que je ne comprends pas... (je place mon
commentaire au-dessous de vos lignes.
Sub inventaire()
Sheets(1).SelectAller à la feuille 1
Cells.SpecialCells(xlCellTypeConstants, 23).SelectPas compris du tout :-((
For s = 2 To Sheets.CountDébut de boucle: depuis 2 jusqu'au nombr e de feuille total?
ligne = 1Aller ligne 1 ??
mot = Sheets(s).NamePas compris. Mot = celui que je cherche sur la feuille 1 ou celui de la
page sur laquelle il faut coller la ligne (ce ne sont pas forcément les
mêmes)
For Each c In SelectionQue représente c ? colonne ?? copier?
If InStr(c, mot) > 0 ThenDébut de condition... Pas compris la s yntaxe
Sheets(s).Cells(ligne, 1) = c
Sheets(s).Cells(ligne, 1).Offset(0, 2) = c.AddressPas compris
ligne = ligne + 1Ligne suivante
End IfFin de condition
Next cc suivant
Next spage suivante ??
Merci.
Cordialement,
Pierre F.
Bonsoir,Merci pour le coupe de main et la promptitude :-)
Pas très bon en macro et vba, j'ai essayé d'adapter ces lignes au
contexte de mon classeur... et ça marche pas trop bien :-)
Comme je souhaite aussi m'améliorer, je vous propose de commenter cette
procédure et vous signaler ce que je ne comprends pas... (je place mon
commentaire au-dessous de vos lignes.Sub inventaire()
Sheets(1).SelectAller à la feuille 1
Cells.SpecialCells(xlCellTypeConstants, 23).SelectPas compris du tout :-((
For s = 2 To Sheets.CountDébut de boucle: depuis 2 jusqu'au nombr e de feuille total?
ligne = 1Aller ligne 1 ??
mot = Sheets(s).NamePas compris. Mot = celui que je cherche sur la feuille 1 ou celui de la
page sur laquelle il faut coller la ligne (ce ne sont pas forcément les
mêmes)For Each c In SelectionQue représente c ? colonne ?? copier?
If InStr(c, mot) > 0 ThenDébut de condition... Pas compris la s yntaxe
Sheets(s).Cells(ligne, 1) = c
Sheets(s).Cells(ligne, 1).Offset(0, 2) = c.AddressPas compris
ligne = ligne + 1Ligne suivante
End IfFin de condition
Next cc suivant
Next spage suivante ??
Merci.
Cordialement,
Pierre F.
Exécuter le pgm en pas à pas avec la touche F8 et placer le curseur
sur les variables.
Exécuter le pgm en pas à pas avec la touche F8 et placer le curseur
sur les variables.
Exécuter le pgm en pas à pas avec la touche F8 et placer le curseur
sur les variables.
Exécuter le pgm en pas à pas avec la touche F8 et placer le curseur
sur les variables.Merci pour ces explications.
Ok; j'aurais dû y penser moi-même grrrrr :-((
Trois questions encore (si j'ose abuser)...
1)Je souhaite commencer la recherche des mots clés sur la feuille 1 à la
ligne 6 et pas du tout dans les lignes 1 à 5 et exclusivement dans les
colonnes A et B.
2)Je souhaiterais copier les lignes répondant au critère non pas à la
ligne 1 puis aux suivantes, mais à la première ligne vide de la feuil le
(le numéro de cette ligne étant forcément supérieur à 5)
3) Le mot (ou la suite de caractères) cherché n'a pas forcément le même
nom que la feuille de destination.
Merci.
Cordialement,
Pierre F.
Exécuter le pgm en pas à pas avec la touche F8 et placer le curseur
sur les variables.Merci pour ces explications.
Ok; j'aurais dû y penser moi-même grrrrr :-((
Trois questions encore (si j'ose abuser)...
1)Je souhaite commencer la recherche des mots clés sur la feuille 1 à la
ligne 6 et pas du tout dans les lignes 1 à 5 et exclusivement dans les
colonnes A et B.
2)Je souhaiterais copier les lignes répondant au critère non pas à la
ligne 1 puis aux suivantes, mais à la première ligne vide de la feuil le
(le numéro de cette ligne étant forcément supérieur à 5)
3) Le mot (ou la suite de caractères) cherché n'a pas forcément le même
nom que la feuille de destination.
Merci.
Cordialement,
Pierre F.
Exécuter le pgm en pas à pas avec la touche F8 et placer le curseur
sur les variables.Merci pour ces explications.
Ok; j'aurais dû y penser moi-même grrrrr :-((
Trois questions encore (si j'ose abuser)...
1)Je souhaite commencer la recherche des mots clés sur la feuille 1 à la
ligne 6 et pas du tout dans les lignes 1 à 5 et exclusivement dans les
colonnes A et B.
2)Je souhaiterais copier les lignes répondant au critère non pas à la
ligne 1 puis aux suivantes, mais à la première ligne vide de la feuil le
(le numéro de cette ligne étant forcément supérieur à 5)
3) Le mot (ou la suite de caractères) cherché n'a pas forcément le même
nom que la feuille de destination.
Merci.
Cordialement,
Pierre F.
Je ne comprends pas le point 3. Comment retrouver qq chose que l'on ne
connaît pas?
Je ne comprends pas le point 3. Comment retrouver qq chose que l'on ne
connaît pas?
Je ne comprends pas le point 3. Comment retrouver qq chose que l'on ne
connaît pas?
Je ne comprends pas le point 3. Comment retrouver qq chose que l'on ne
connaît pas?Oui, c'est bien le problème... mais on sait:
Chaque feuille contient :
Lignes 1 à 4: titre spécifique, formule de calcul (somme de la colonne
G), éléments graphiques.
Lignes 5: Les titres des colonnes
Donc lignes 1 à 5 identiques sur chaque feuille et verrouillées
Dès ligne 6, les objets sont décrits:
Col A: catégorie de l'objet (documentation, instrument, CD...
Col B: la sous catégorie (CD ou Vinyl, livre ou partition ...)
Col C: La désignation de l'objet, sa description sommaire
Col D: L'année d'achat
Col E: le nombre
Col F: le prix
...
La feuille No 1 contient les achats nouveaux (de l'année en cours) que
le responsable entre au fur et à mesure.
A la fin de l'année, lors de l'impression de l'inventaire, il faut
A) faire une impression spécifique de ces nouveaux achats
B) les ventiler dans la feuille correspondant à la bonne catégorie (o u,
parfois sous catégorie) afin que ces nouveaux achats figurent dans les
listes d'inventaires spécifiques.
Pour le point B, on peut faire facilement l'opération "à la main"...
sauf que certaines années, les achats sont nombreux; je cherche donc à
automatiser cette tâche.
Je souhaite créer une (mais peut être en faudra-t-il 12?) macro qui va
rechercher dans les colonnes A et B des chaînes de caractère préd éfinies
et spécifiques qui correspondent aux différentes catégories d'objet s(il
y en a 12 et seulement 12)
Ensuite, la ligne correspondant au critère No X sera collée dans une
feuille prédéfinie
Les libellés des différentes cellules d'une même ligne ne permetten t pas
une automatisation totale; en effet on peut trouver une ligne sur
laquelle on aura:
Catégorie : documentation
Sous catégorie: Livre
Libellé: Les disques, du vynil au mp3: quels instruments aujourd'hui? -
Jeff Blanchard
...
On voit que la colonne C contient des mots clés désignant des catég ories
et des sous-catégories...
La langue française est riche et j'ai peur de tomber sur pas mal de cas
de ce genre (il y a plus de 4000 objets dans cet inventaire (le
fichier père près de 2Mo!
Celui-là est une très court extrait.http://cjoint.com/?bzxjTUXhVr
J'ai encore une autre question:
Lors de la copie, on voit que des adresses genre $A$6 sont collées dans
la colonne B
Cordialement,
Pierre F.
Je ne comprends pas le point 3. Comment retrouver qq chose que l'on ne
connaît pas?Oui, c'est bien le problème... mais on sait:
Chaque feuille contient :
Lignes 1 à 4: titre spécifique, formule de calcul (somme de la colonne
G), éléments graphiques.
Lignes 5: Les titres des colonnes
Donc lignes 1 à 5 identiques sur chaque feuille et verrouillées
Dès ligne 6, les objets sont décrits:
Col A: catégorie de l'objet (documentation, instrument, CD...
Col B: la sous catégorie (CD ou Vinyl, livre ou partition ...)
Col C: La désignation de l'objet, sa description sommaire
Col D: L'année d'achat
Col E: le nombre
Col F: le prix
...
La feuille No 1 contient les achats nouveaux (de l'année en cours) que
le responsable entre au fur et à mesure.
A la fin de l'année, lors de l'impression de l'inventaire, il faut
A) faire une impression spécifique de ces nouveaux achats
B) les ventiler dans la feuille correspondant à la bonne catégorie (o u,
parfois sous catégorie) afin que ces nouveaux achats figurent dans les
listes d'inventaires spécifiques.
Pour le point B, on peut faire facilement l'opération "à la main"...
sauf que certaines années, les achats sont nombreux; je cherche donc à
automatiser cette tâche.
Je souhaite créer une (mais peut être en faudra-t-il 12?) macro qui va
rechercher dans les colonnes A et B des chaînes de caractère préd éfinies
et spécifiques qui correspondent aux différentes catégories d'objet s(il
y en a 12 et seulement 12)
Ensuite, la ligne correspondant au critère No X sera collée dans une
feuille prédéfinie
Les libellés des différentes cellules d'une même ligne ne permetten t pas
une automatisation totale; en effet on peut trouver une ligne sur
laquelle on aura:
Catégorie : documentation
Sous catégorie: Livre
Libellé: Les disques, du vynil au mp3: quels instruments aujourd'hui? -
Jeff Blanchard
...
On voit que la colonne C contient des mots clés désignant des catég ories
et des sous-catégories...
La langue française est riche et j'ai peur de tomber sur pas mal de cas
de ce genre (il y a plus de 4000 objets dans cet inventaire (le
fichier père près de 2Mo!
Celui-là est une très court extrait.http://cjoint.com/?bzxjTUXhVr
J'ai encore une autre question:
Lors de la copie, on voit que des adresses genre $A$6 sont collées dans
la colonne B
Cordialement,
Pierre F.
Je ne comprends pas le point 3. Comment retrouver qq chose que l'on ne
connaît pas?Oui, c'est bien le problème... mais on sait:
Chaque feuille contient :
Lignes 1 à 4: titre spécifique, formule de calcul (somme de la colonne
G), éléments graphiques.
Lignes 5: Les titres des colonnes
Donc lignes 1 à 5 identiques sur chaque feuille et verrouillées
Dès ligne 6, les objets sont décrits:
Col A: catégorie de l'objet (documentation, instrument, CD...
Col B: la sous catégorie (CD ou Vinyl, livre ou partition ...)
Col C: La désignation de l'objet, sa description sommaire
Col D: L'année d'achat
Col E: le nombre
Col F: le prix
...
La feuille No 1 contient les achats nouveaux (de l'année en cours) que
le responsable entre au fur et à mesure.
A la fin de l'année, lors de l'impression de l'inventaire, il faut
A) faire une impression spécifique de ces nouveaux achats
B) les ventiler dans la feuille correspondant à la bonne catégorie (o u,
parfois sous catégorie) afin que ces nouveaux achats figurent dans les
listes d'inventaires spécifiques.
Pour le point B, on peut faire facilement l'opération "à la main"...
sauf que certaines années, les achats sont nombreux; je cherche donc à
automatiser cette tâche.
Je souhaite créer une (mais peut être en faudra-t-il 12?) macro qui va
rechercher dans les colonnes A et B des chaînes de caractère préd éfinies
et spécifiques qui correspondent aux différentes catégories d'objet s(il
y en a 12 et seulement 12)
Ensuite, la ligne correspondant au critère No X sera collée dans une
feuille prédéfinie
Les libellés des différentes cellules d'une même ligne ne permetten t pas
une automatisation totale; en effet on peut trouver une ligne sur
laquelle on aura:
Catégorie : documentation
Sous catégorie: Livre
Libellé: Les disques, du vynil au mp3: quels instruments aujourd'hui? -
Jeff Blanchard
...
On voit que la colonne C contient des mots clés désignant des catég ories
et des sous-catégories...
La langue française est riche et j'ai peur de tomber sur pas mal de cas
de ce genre (il y a plus de 4000 objets dans cet inventaire (le
fichier père près de 2Mo!
Celui-là est une très court extrait.http://cjoint.com/?bzxjTUXhVr
J'ai encore une autre question:
Lors de la copie, on voit que des adresses genre $A$6 sont collées dans
la colonne B
Cordialement,
Pierre F.
http://cjoint.com/?bAhWSVgUyv
Sub ventile()
Sheets("achatsnouv").Select
For Each c In Range("B6", [B65000].End(xlUp))
onglet = c
If onglet <> "" Then
On Error Resume Next
Range(c.Offset(0, -1), c.Offset(0, 11)).Copy _
Sheets(onglet).[A65000].End(xlUp).Offset(1, 0)
End If
Next c
End Sub
http://cjoint.com/?bAhWSVgUyv
Sub ventile()
Sheets("achatsnouv").Select
For Each c In Range("B6", [B65000].End(xlUp))
onglet = c
If onglet <> "" Then
On Error Resume Next
Range(c.Offset(0, -1), c.Offset(0, 11)).Copy _
Sheets(onglet).[A65000].End(xlUp).Offset(1, 0)
End If
Next c
End Sub
http://cjoint.com/?bAhWSVgUyv
Sub ventile()
Sheets("achatsnouv").Select
For Each c In Range("B6", [B65000].End(xlUp))
onglet = c
If onglet <> "" Then
On Error Resume Next
Range(c.Offset(0, -1), c.Offset(0, 11)).Copy _
Sheets(onglet).[A65000].End(xlUp).Offset(1, 0)
End If
Next c
End Sub