A voir également:
- [excel 2003] mise à jour lignes et formules
- Formule excel - Guide
- Liste déroulante excel - Guide
- Mise a jour airpods - Guide
- Desactiver mise a jour windows 10 - Guide
- Mise a jour windows 11 22h2 - Guide
7 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
12 mai 2009 à 09:59
12 mai 2009 à 09:59
Bonjour,
Alors pas si évident que cela à réaliser.
Dans l'onglet B tu peux mettre ce genre de formule en Colonne A :
=SI(Feuil1!A1<>"";Feuil1!A1;"") et tu l'étires vers le bas.
En colonne B :
=SI(A1<>"";mets ici ta formule;"")
pareil en C.
Par contre si tu veux un tri par ordre alpha automatique, il faudra passer par une macro...
Alors pas si évident que cela à réaliser.
Dans l'onglet B tu peux mettre ce genre de formule en Colonne A :
=SI(Feuil1!A1<>"";Feuil1!A1;"") et tu l'étires vers le bas.
En colonne B :
=SI(A1<>"";mets ici ta formule;"")
pareil en C.
Par contre si tu veux un tri par ordre alpha automatique, il faudra passer par une macro...
Si quelqu'un connaît la petite chose à ajouter dans la formule pour que la ligne s'insère aussi dans mon onglet B, je suis preneur!!!(si nous pouvions éviter les macros...)
Pour les formles autrement elles marchent toutes!!!! Il ne manque plus que l'insertion et c'est parfait.
Cordialement,
Jérémy
Pour les formles autrement elles marchent toutes!!!! Il ne manque plus que l'insertion et c'est parfait.
Cordialement,
Jérémy
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
12 mai 2009 à 18:52
12 mai 2009 à 18:52
Re
A mon avis impossible sans macro...
Le fait d'insérer une ligne au milieu de ton tableau A fait que la formule dans le tableaui B change... Donc VBA. remarque que la solution VBA ne doit pas être compliquée et doit s'appliquer facilement.
A toi de voir.
A mon avis impossible sans macro...
Le fait d'insérer une ligne au milieu de ton tableau A fait que la formule dans le tableaui B change... Donc VBA. remarque que la solution VBA ne doit pas être compliquée et doit s'appliquer facilement.
A toi de voir.
jerem
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
14 mai 2009 à 15:40
14 mai 2009 à 15:40
va pour du vba pas le choix ... et m****..
Pour ceux que ça interresse la VBA c'est
Sub Masquer_Lignes_Vides()
(trier section par ordre alpha)
Range("A6:A31").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
(trier section par ordre alpha)
(supprime les lignes vides)
Application.ScreenUpdating = False
Sheets("recap AGENCE LORRAINE").Select
Range("B6:B26").Select
For Each Cell In Selection
Cpt = 0
For i = 0 To 11
If Cell.Offset(0, i) <> "" Then
Cpt = Cpt + 1
End If
Next
If Cpt = 0 Then
Cell.EntireRow.Hidden = True
Else
Cell.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
(supprime les lignes vides)
Cordialement,
Jérémy
Pour ceux que ça interresse la VBA c'est
Sub Masquer_Lignes_Vides()
(trier section par ordre alpha)
Range("A6:A31").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
(trier section par ordre alpha)
(supprime les lignes vides)
Application.ScreenUpdating = False
Sheets("recap AGENCE LORRAINE").Select
Range("B6:B26").Select
For Each Cell In Selection
Cpt = 0
For i = 0 To 11
If Cell.Offset(0, i) <> "" Then
Cpt = Cpt + 1
End If
Next
If Cpt = 0 Then
Cell.EntireRow.Hidden = True
Else
Cell.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
(supprime les lignes vides)
Cordialement,
Jérémy
Nouvelle question, je veux trier par ordre alphabétique plusieur plages de cellules différentes via une macro. Pour une plage c'est ça :
Range("A37:A57").Select
Selection.Sort Key2:=Range("A37"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Mias des que j'utilise union, il me dit qu'il y a erreur sur la suite.
Quelqu'un peut m'aider?
Cordialement,
Jérémy
Range("A37:A57").Select
Selection.Sort Key2:=Range("A37"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Mias des que j'utilise union, il me dit qu'il y a erreur sur la suite.
Quelqu'un peut m'aider?
Cordialement,
Jérémy
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
15 mai 2009 à 10:28
15 mai 2009 à 10:28
Salut,
union?????
Je ne vois pas du tout de quoi vous parlez?
union?????
Je ne vois pas du tout de quoi vous parlez?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
15 mai 2009 à 11:14
15 mai 2009 à 11:14
Vous souhaitez sélectionner par exemple A37:A57 & G12:G68 & L192:L243 et trier le tout?
Si oui Excel ne peux pas trier sur des sélections multiples...
Si oui Excel ne peux pas trier sur des sélections multiples...
nn pas trier le tout, mais trier chaque plage indépendemment et ce dans une seule macro..
Gbinforme m'a donné la solution !!
La solution c'est
Range("A6:A31").Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A36:A57").Sort Key1:=Range("A36"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A64:A77").Sort Key1:=Range("A64"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A82:A115").Sort Key1:=Range("A82"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Je te remercie pour ton aide Pijaku!!!!
Bon après-midi
Cordialement
Gbinforme m'a donné la solution !!
La solution c'est
Range("A6:A31").Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A36:A57").Sort Key1:=Range("A36"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A64:A77").Sort Key1:=Range("A64"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A82:A115").Sort Key1:=Range("A82"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Je te remercie pour ton aide Pijaku!!!!
Bon après-midi
Cordialement
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
15 mai 2009 à 15:01
15 mai 2009 à 15:01
De rien j'ai pas fait grand choz...
pluka mettre en "résolu"
pluka mettre en "résolu"
12 mai 2009 à 10:14
La formule que tu me donne marche dans le sens où les lignes de mon tableau de l'onglet B prennent bien les valeurs texte de l'onglet A, mais le problème est que lorsque j'insère une ligne dans le tableau de l'onglet A avec une nouvelle valeur (je mange des cornichons), celle-ci ne sinsère pas dans le tableau de l'onglet B. :s
Encore merci pour la réponse pijaku.
Cordialement,
Jérémy