Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2525 connectés 

 

 

 Mot :   Pseudo :  
  Aller à la page :
 
 Page :   1  2  3  4  5  ..  20  21  22  ..  112  113  114  115  116  117
Auteur Sujet :

[Topic Unique] Excel : Keep calm and Pivot Table !

n°2881948
tyler1207
cowan, basagotia, lenosky...
Posté le 24-07-2009 à 09:35:57  profilanswer
 

Reprise du message précédent :
ouep pour le moment jfais une boucle infinie (j'insère une colonne qui se reprend elle même etc etc :D) mais ça devrait être gérable d'éviter ça.


---------------
Website|Like it ?
mood
Publicité
Posté le 24-07-2009 à 09:35:57  profilanswer
 

n°2881951
tyler1207
cowan, basagotia, lenosky...
Posté le 24-07-2009 à 09:56:19  profilanswer
 

bon non, passe pas, voilà mon code, il faudrait qu'à la fin de la boucle i soit incrémenté non pas de 1, mais de sa valeur + la valeur de la cellule (Cells(i, 10).Value )
 

Code :
  1. heets("données filtrées" ).Select
  2.     Cells(2, 1).Select
  3.     Selection.End(xlDown).Select
  4.     dligfil = ActiveCell.Row
  5.     For i = 2 To dligfil
  6.             If Cells(i, 10) > 1 Then
  7.             Cells(i, 10).Select
  8.                 For j = 1 To Cells(i, 10).Value - 1
  9.                 Rows(i).Select
  10.                 Selection.Insert Shift:=xlDown
  11.                 Rows(i + 1).Select
  12.                 Selection.Copy
  13.                 Rows(i).Select
  14.                 ActiveSheet.Paste
  15.                 Next j
  16.                 'i= ...
  17.             End If
  18.     Next


---------------
Website|Like it ?
n°2881962
SuppotDeSa​Tante
Aka dje69r
Posté le 24-07-2009 à 10:39:33  profilanswer
 

Tu veux passer a la ligne, qui suit celles que tu ajoutes. Donc c'est la valeur de la cellule i,10 +1 à partir de la cellule i,10

Code :
  1. 'Soit si tu as besoin de garder en mémoire pour la suite le nb dans la cellule
  2.                 For J = 1 To Cells(I, 10).Value - 1
  3.                   NbLigne = Cells(I, 10).Value
  4.                     Rows(I).Select
  5.                     selection.Insert Shift:=xlDown
  6.                     Rows(I + 1).Select
  7.                     selection.Copy
  8.                     Rows(I).Select
  9.                     ActiveSheet.Paste
  10.                   I = I + NbLigne + 1
  11.                 Next J
  12. 'ou
  13.                 For J = 1 To Cells(I, 10).Value - 1
  14.                     Rows(I).Select
  15.                     selection.Insert Shift:=xlDown
  16.                     Rows(I + 1).Select
  17.                     selection.Copy
  18.                     Rows(I).Select
  19.                     ActiveSheet.Paste
  20.                   I = I + Cells(I, 10).Value + 1
  21.                 Next J


Message édité par SuppotDeSaTante le 24-07-2009 à 10:44:32

---------------
Soyez malin, louez entre voisins !
n°2882038
tyler1207
cowan, basagotia, lenosky...
Posté le 24-07-2009 à 15:28:29  profilanswer
 

je vais tester ça, en attendant je m'étais simplifié la vie en copiant simplement les nouvelles données sur une nouvelle feuille.
 
je me pose encore une question assez chiante à exprimer : est-ce qu'il est possible, SANS changer de feuille, de garder uniquement les données filtrées SANS avoir de gap entre les numéros de ligne ?
 
je pensais éventuellement à couper ttes les données filtrées et à les coller juste par après. quid ?


---------------
Website|Like it ?
n°2882040
SuppotDeSa​Tante
Aka dje69r
Posté le 24-07-2009 à 15:32:07  profilanswer
 

Bah si tu changes pas de feuilles, tu colles tes cellules (visibles, donc filtrées) coupées/copiées où ?


Message édité par SuppotDeSaTante le 24-07-2009 à 15:32:30

---------------
Soyez malin, louez entre voisins !
n°2882041
tyler1207
cowan, basagotia, lenosky...
Posté le 24-07-2009 à 15:36:25  profilanswer
 

ne marche pas en effet, ça ne "déplie" pas le n° de ligne...
 
une idée de commande adéquate ? car les ittérations vont de i en i, passant donc par des lignes filtrées ... et ne trouvant rien à y copier => bug.
 
merci pour ton aide en tout cas.
 
 
edit : je pensais à ne rendre selectionnable que les lignes visibles (RowTypeVisible) ...


Message édité par tyler1207 le 24-07-2009 à 15:49:38

---------------
Website|Like it ?
n°2882052
SuppotDeSa​Tante
Aka dje69r
Posté le 24-07-2009 à 15:55:36  profilanswer
 

Je comprends pas trop ce que tu veux faire....


---------------
Soyez malin, louez entre voisins !
n°2882054
tyler1207
cowan, basagotia, lenosky...
Posté le 24-07-2009 à 16:12:44  profilanswer
 

pour faire simple, j'ai une feuille1 où j'ai des données filtrées (sur une seule ligne, les qtés vont de 1 à 10 par exemple), sur la feuille2 je recopie juste les données filtrées mais en créant une ligne par quantité (ie si qté =1 une ligne, si qté = 2 2 lignes ...etc).  
 
le pb est que qd je balaye ligne après ligne la feuille1, il balaye aussi les lignes cachées par le filtre...ce qui pose pb dans le code de copie sur le feuille2.


---------------
Website|Like it ?
n°2882077
The_chosen​_one
There can only be one !
Posté le 24-07-2009 à 17:00:40  profilanswer
 

Pour info, si ça interesse des gens, j'ai fait un petit script pour importer du ldif (format exportation d'un ldap) dans excel : http://forum.hardware.fr/hfr/Progr [...] 4487_1.htm

n°2882144
SuppotDeSa​Tante
Aka dje69r
Posté le 24-07-2009 à 23:29:25  profilanswer
 

tyler1207 a écrit :

pour faire simple, j'ai une feuille1 où j'ai des données filtrées (sur une seule ligne, les qtés vont de 1 à 10 par exemple), sur la feuille2 je recopie juste les données filtrées mais en créant une ligne par quantité (ie si qté =1 une ligne, si qté = 2 2 lignes ...etc).  
 
le pb est que qd je balaye ligne après ligne la feuille1, il balaye aussi les lignes cachées par le filtre...ce qui pose pb dans le code de copie sur le feuille2.


 
Oui c'est pour ca qu'il vaut mieux passer par une feuille intermediaire, qui au pire, apres le process, est virée.
 
Mes tests vont de 0 à 65 lignes a ajouter sur 37 lignes filtrées. Le nombre de ligne a ajouter en colonne J est 'aléatoire' (Bon ok, saisi a l'arache  :ange: )
Voici le code :

Code :
  1. Sub tyler1207() 'a mettre apres ta procedure qui fait le filtre
  2.     Application.ScreenUpdating = False
  3. 'Tu selectionne toutes les cellules visibles
  4.     Cells.Select
  5. 'Tu copies
  6.     Selection.Copy
  7. 'Tu ajoutes un onglet et lui donne un nom
  8.     Sheets.Add
  9.     ActiveSheet.Name = "DataTemp"
  10. 'Tu colles
  11.     ActiveSheet.Paste
  12.    
  13. 'Boucle pour ajouter les lignes vides en fonction de la colonne J, _
  14. je pars de 2 car en ligne 1 j'ai un entete
  15.     For x = 2 To 65536 'Je me prends pas la tete a calculer la derniere ligne _
  16.     vu que je sors si la cellule ne contient rien.
  17.         'Selectionne la ligne du dessous, car ajouter une ligne se fait en dessous
  18.         Cells(x + 1, 10).Select
  19.         'Si la cellule est vide, on sort de la boucle
  20.         If ActiveCell = "" Then Exit For
  21.         'Tu regard ta cellule qui contient le nb de ligne a ajouter
  22.         NbLigne = Cells(x, 10)
  23.         'Ajoute les lignes vierge
  24.         For i = 1 To NbLigne
  25.             Selection.EntireRow.Insert
  26.             x = x + 1
  27.         Next i
  28.     Next x
  29.    
  30.     Application.ScreenUpdating = True
  31.    
  32. End Sub


 
Pour le voir tourner, c'est ici

Message cité 1 fois
Message édité par SuppotDeSaTante le 24-07-2009 à 23:35:16

---------------
Soyez malin, louez entre voisins !
mood
Publicité
Posté le 24-07-2009 à 23:29:25  profilanswer
 

n°2883552
evariste
may the frag be with you
Posté le 31-07-2009 à 11:15:59  profilanswer
 

Bonjour,
 
Est-il possible d'assigner à un raccourci clavier à une action dans xl?
Plus précisemment, je voudrais un raccourci sur insert row et insert column. ça serait encore mieux si ça pouvait être le même pour les 2 et que cela fonctionne selon qu'une colonne ou une ligne est activée.
 
Merci

n°2883577
SuppotDeSa​Tante
Aka dje69r
Posté le 31-07-2009 à 12:35:20  profilanswer
 

Bonjour

evariste a écrit :

Bonjour,
 
Est-il possible d'assigner à un raccourci clavier à une action dans xl?
Plus précisemment, je voudrais un raccourci sur insert row et insert column. ça serait encore mieux si ça pouvait être le même pour les 2 et que cela fonctionne selon qu'une colonne ou une ligne est activée.
 
Merci


 
J'ai pas cherché pour le meme raccourci en fonction de si une ligne/colonne est sélectionnée ou pas.
La, tu te mets sur une cellule, genre B5, si tu fais Ctrl+Shift+Fleche droite il insere une colonne avant B5, et si toujours en B5, tu fais Ctrl+Shift+Fleche Bas, il insere une ligne au dessus de B5
 
A mettre dans ThisWorkbook :

Code :
  1. Private Sub Workbook_Open()
  2.     'Si les touches Ctrl+Shift+Fleche droite sont appuyées il lance la macro InsertColone
  3.     Application.OnKey "+^{RIGHT}", "InsertColone"
  4.     'Si les touches Ctrl+Shift+Bas sont appuyées il lance la macro InsertLigne
  5.     Application.OnKey "+^{DOWN}", "InsertLigne"
  6. End Sub


 
A mettre dans un module à la con :

Code :
  1. Sub InsertColone()
  2.     Selection.EntireColumn.Insert
  3. End Sub
  4. Sub InsertLigne()
  5.     Selection.EntireRow.Insert
  6. End Sub


 
Ca peut te donner deja une piste pour ton raccourci unique, meme si je ne trouve pas cela interressant et/ou logique.
 
Cordialement

Message cité 3 fois
Message édité par SuppotDeSaTante le 31-07-2009 à 12:36:06

---------------
Soyez malin, louez entre voisins !
n°2883658
lechewal
des sensations...bien
Posté le 31-07-2009 à 18:02:46  profilanswer
 

'lu

 

je galère pour faire des histogrammes..

 

J'aimerai un histogramme "classique" (i.e., pour le type A, j'ai les valeurs 1 et 2, pour le type B, j'ai les valeurs 1 et 2,...)

 

Sauf que chaque "barre", serait lui même un histogramme empilé, du genre sur un total de 100 trucs, j'ai 60 toto et 40 tatas.

 

Donc, pour résumer, pour le type A, j'ai 100 trucs1 (dont 60 toto et 40 tatas), et 200 trucs2 (dont 120 toto et 80 tata), pour type B, j'ai des trucs1 (dont des toto et tata) et des trucs2, etc.

 

J'espère que je suis clair [:transparency]


Message édité par lechewal le 31-07-2009 à 18:42:12
n°2883674
seniorpapo​u
Posté le 31-07-2009 à 18:39:16  profilanswer
 

bonsoir,
 
 
               AAA        BBB
Toto          10          20
tata           60          80
 
 
sélection du tout, insérer graphique et choisir le modèle
 
inverser lignes et colonnes si barres mal disposées.
 
 
Cordialement


Message édité par seniorpapou le 31-07-2009 à 18:39:44
n°2883676
lechewal
des sensations...bien
Posté le 31-07-2009 à 18:42:14  profilanswer
 

je me suis moi même embrouillé :o, j'ai édité :o

 

"Donc, pour résumer, pour le type A, j'ai 100 trucs1 (dont 60 toto et 40 tatas), et 200 trucs2 (dont 120 toto et 80 tata), pour type B, j'ai des trucs1 (dont des toto et tata) et des trucs2, etc."


Message édité par lechewal le 31-07-2009 à 18:42:21
n°2883681
seniorpapo​u
Posté le 31-07-2009 à 18:57:51  profilanswer
 

Re,
là je ne sais pas!!!!!!!!!
Cordialement

n°2883932
evariste
may the frag be with you
Posté le 02-08-2009 à 09:22:00  profilanswer
 


 

SuppotDeSaTante a écrit :


 
Ca peut te donner deja une piste pour ton raccourci unique, meme si je ne trouve pas cela interressant et/ou logique.
 
Cordialement


 
J'emploie la logique floue :D
si j'active une colonne je risque pas de vouloir insérer une ligne et inversemment donc ça me paraît logique d'user le même raccourci pour les 2
je vais m'en contenter. merci

n°2884100
evariste
may the frag be with you
Posté le 03-08-2009 à 05:54:43  profilanswer
 


 

SuppotDeSaTante a écrit :


A mettre dans ThisWorkbook :

Code :
  1. Private Sub Workbook_Open()
  2.     'Si les touches Ctrl+Shift+Fleche droite sont appuyées il lance la macro InsertColone
  3.     Application.OnKey "+^{RIGHT}", "InsertColone"
  4.     'Si les touches Ctrl+Shift+Bas sont appuyées il lance la macro InsertLigne
  5.     Application.OnKey "+^{DOWN}", "InsertLigne"
  6. End Sub


 
Cordialement


 
C'est normal que ces actions ne soient pas enregistrées?
càd que je peux pas faire ctrl+z :D pour annuler ensuite

Message cité 1 fois
Message édité par evariste le 03-08-2009 à 11:52:35
n°2884108
Deamon
Posté le 03-08-2009 à 08:56:45  profilanswer
 

evariste a écrit :


 
C'est normal que ces actions ne soient pas enregistrées?
càd que je peux pas faire ctrl+y pour annuler ensuite


Et avec CTRL+Z ?
 :ange:

n°2884255
tyler1207
cowan, basagotia, lenosky...
Posté le 03-08-2009 à 15:59:08  profilanswer
 

SuppotDeSaTante a écrit :


 
Oui c'est pour ca qu'il vaut mieux passer par une feuille intermediaire, qui au pire, apres le process, est virée.
 
Mes tests vont de 0 à 65 lignes a ajouter sur 37 lignes filtrées. Le nombre de ligne a ajouter en colonne J est 'aléatoire' (Bon ok, saisi a l'arache  :ange: )
Voici le code :

Code :
  1. Sub tyler1207() 'a mettre apres ta procedure qui fait le filtre
  2.     Application.ScreenUpdating = False
  3. 'Tu selectionne toutes les cellules visibles
  4.     Cells.Select
  5. 'Tu copies
  6.     Selection.Copy
  7. 'Tu ajoutes un onglet et lui donne un nom
  8.     Sheets.Add
  9.     ActiveSheet.Name = "DataTemp"
  10. 'Tu colles
  11.     ActiveSheet.Paste
  12.    
  13. 'Boucle pour ajouter les lignes vides en fonction de la colonne J, _
  14. je pars de 2 car en ligne 1 j'ai un entete
  15.     For x = 2 To 65536 'Je me prends pas la tete a calculer la derniere ligne _
  16.     vu que je sors si la cellule ne contient rien.
  17.         'Selectionne la ligne du dessous, car ajouter une ligne se fait en dessous
  18.         Cells(x + 1, 10).Select
  19.         'Si la cellule est vide, on sort de la boucle
  20.         If ActiveCell = "" Then Exit For
  21.         'Tu regard ta cellule qui contient le nb de ligne a ajouter
  22.         NbLigne = Cells(x, 10)
  23.         'Ajoute les lignes vierge
  24.         For i = 1 To NbLigne
  25.             Selection.EntireRow.Insert
  26.             x = x + 1
  27.         Next i
  28.     Next x
  29.    
  30.     Application.ScreenUpdating = True
  31.    
  32. End Sub


 
Pour le voir tourner, c'est ici


 
cf la réponse en mp où j'ai répondu avant de venir ici, j'ai effectivement opté pour une feuille intermédaire, pb reglé d'une manière non "belle" mais bon... on vera pour le beau ensuite.
 
j'ai un truc qui me dérrange avec un TCD là, j'en ai créé un dans un fichier 1.xls, vu que je bossais j'ai itérré le nom du fichier qui est maintenant 2.xls ... le tab ne suit pas bien sûr lorsque je veux l'actualiser ou modifier ses propriétés...  
 
c'est possible, sans recréer tout le tab  :sweat: de juste changer l'endroit où il choppe ses données sources ?


Message édité par tyler1207 le 03-08-2009 à 16:02:52

---------------
Website|Like it ?
n°2884680
SuppotDeSa​Tante
Aka dje69r
Posté le 05-08-2009 à 00:00:16  profilanswer
 

Oui
 
Tu dois avoir une chaine de connexion qui ressemble a une requete en SQL... De mémoire.
Click droit sur le tableau, normalement...
 
Quelle version d'Excel déjà ?

Message cité 1 fois
Message édité par SuppotDeSaTante le 05-08-2009 à 00:00:38

---------------
Soyez malin, louez entre voisins !
n°2884728
Prozac
Tout va bien
Posté le 05-08-2009 à 11:11:14  profilanswer
 

Hello les gens
 
Avez vous des problèmes avec vos bouts de code VBA dans des documents excel qui doivent être utilisés par des utilisateurs sous excel 2003 et d'autres sous 2007 ?
 
J'ai un truc à faire que j'arrive à faire juste avec des formules mais là je me cogne à un mur, il me faudrait du VBA pour aller plus loin.
 
D'ailleurs j'ai souvent des pertes de tout le formattage d'un classeur quand je ré-ouvre un fichier 2007 avec excel 2007; Ca vous arrive aussi ?


---------------
La ligne droite n'est en aucun cas le plus court chemin entre deux points. Sauf, bien sûr, si les deux points sont bien alignés l'un en face de l'autre
n°2884760
TAM136
Posté le 05-08-2009 à 13:19:36  profilanswer
 

Prozac a écrit :

Hello les gens
 
Avez vous des problèmes avec vos bouts de code VBA dans des documents excel qui doivent être utilisés par des utilisateurs sous excel 2003 et d'autres sous 2007 ?
 


 
Tu veux dire du code VBA sous excel 2003 qui ne passe pas sous excel 2007: OUI.Normal,non?Tu peux expliciter?

n°2884768
tyler1207
cowan, basagotia, lenosky...
Posté le 05-08-2009 à 13:41:36  profilanswer
 

SuppotDeSaTante a écrit :

Oui
 
Tu dois avoir une chaine de connexion qui ressemble a une requete en SQL... De mémoire.
Click droit sur le tableau, normalement...
 
Quelle version d'Excel déjà ?


 
2000
 
en fait j'ai trouvé les infos qu'il me fallait (nom du TCD et modifier le plage de données), tout ça dans click droit-options et assistant


---------------
Website|Like it ?
n°2884775
Prozac
Tout va bien
Posté le 05-08-2009 à 14:04:21  profilanswer
 

TAM136 a écrit :


 
Tu veux dire du code VBA sous excel 2003 qui ne passe pas sous excel 2007: OUI.Normal,non?Tu peux expliciter?


 
Aujourd'hui je ne peux pas coder sous excel 2007, il semble que les fonctionnalités VBA soient désactivées. et si je le fais sous 2003 tout est désactivé en les ouvrant sous 2007.
 
Avant d'aller emmerder le service informatique pour qu'ils débloquent le VBA (enfin je ne sais pas précisement pourquoi je ne peux pas enregistrer ni coder de macros en 2007), je voudrais savoir si il y a compatibilité dans les 2 sens entre les 2 versions.


---------------
La ligne droite n'est en aucun cas le plus court chemin entre deux points. Sauf, bien sûr, si les deux points sont bien alignés l'un en face de l'autre
n°2884808
tyler1207
cowan, basagotia, lenosky...
Posté le 05-08-2009 à 16:58:01  profilanswer
 

me revoilà avec une nouvelle question :  
 
1. j'ai une chaîne de caratères sur une feuille, que je veux comparer avec d'autres chaînes sur une seconde feuille
 
2. Si la comparaison est positive, il faut ensuite que je copie une cellule voisines de la 2nd feuille vers la première.  
 
et rebellote pour 10 valeurs.  
 
pour le 2 ça va, c très simple, par contre pour le premier point, je galère un peu en VBA vu que je ne sais pas si on peut stocker une valeur en mémoire puis passer sur la feuille suivante, selectionner la cellule à comparer n°1 puis comparer... etc  
 
bref, idée ?
 
edit : jsuis en train de trouver :p


Message édité par tyler1207 le 05-08-2009 à 17:07:28

---------------
Website|Like it ?
n°2884849
tyler1207
cowan, basagotia, lenosky...
Posté le 05-08-2009 à 18:20:56  profilanswer
 

bon, pas tout à fait :  
 

Code :
  1. k = 5
  2. m = 5
  3. Sheets("feuille1" ).Select
  4.     For k = 5 To 14
  5.     Cells(k, 1).Select
  6.     Selection.Copy
  7.     Sheets("feuille2" ).Select
  8.             For m = 5 To 100
  9.             If Sheets("feuille1" ).Cells(k, 1) <> Sheets("feuille2" ).Cells(m, 10) Then Next
  10.            
  11.             ElseIf Sheets("feuille1" ).Cells(k, 1) = Sheets("feuille2" ).Cells(m, 10) Then
  12.             Cells(m, 11).Select
  13.             Selection.Copy
  14.             Sheets("feuille1" ).Select
  15.             Cells(k, 2).Select
  16.             ActiveSheet.Paste
  17.         End If
  18.       Next
  19. End Sub


 
pour la seconde boucle, il ne trouve pas le next qui permet de boucler...jfais un truc pas correct mais jle vois pas  :sweat:  
 
j'ai essayé avec un goto et une etiquette mise devant la boucle, mais pareil j'ai un pb et je ne pense pas que ce soit la bonne solution anyway...
 
edit : doit y'avoir d'autres pbs ds ce code vu que je n'ai pas pu le tester
 
 
edit 2 : trouvé, suffit de laisser tomber les boucles imbriquées et d'utiliser une ft while qui balaye tout jusqu'à trouver le bon résultat


Message édité par tyler1207 le 06-08-2009 à 09:56:18

---------------
Website|Like it ?
n°2884935
SuppotDeSa​Tante
Aka dje69r
Posté le 06-08-2009 à 10:05:28  profilanswer
 

Euh... Les gestion de ton next est particuliere...
Pourquoi tester un truc sur lequel on se moque (si c'est la comparaison est differente) et en fonction faire un next...?
 
jette un oeil la dessus :
 

Code :
  1. Sub tyler1207
  2. k = 5
  3. m = 5
  4.     For k = 5 To 14
  5.         ValD = Sheets("feuil1" ).Cells(k, 1).Value
  6.         For m = 5 To 100
  7.             If Sheets("feuil2" ).Cells(m, 10) = ValD Then
  8.                 ValF = Sheets("feuil2" ).Cells(m, 11).Value
  9.                 'Au cas ou il trouve plusieurs fois la valeur dans la feuille 2, il separe les éléments trouvés par des -
  10.                 Sheets("feuil1" ).Cells(k, 2).Value = Sheets("feuil1" ).Cells(k, 2).Value & " - " & ValF
  11.             End If
  12.         Next m
  13.       Next k
  14. End Sub


Message édité par SuppotDeSaTante le 06-08-2009 à 10:06:31

---------------
Soyez malin, louez entre voisins !
n°2884941
tyler1207
cowan, basagotia, lenosky...
Posté le 06-08-2009 à 10:43:06  profilanswer
 

comme dit un peu plus haut, j'ai laissé tomber la boucle qui testait les différences pour la remplacer par while, mon code donne ça pour la moment :  
 

Code :
  1. Sheets("feuille1" ).Select
  2.     k = 17
  3.     m = 5
  4.     For k = 17 To 26
  5.         Cells(k, 1).Select
  6.          Selection.Copy
  7.         Sheets("feuille2" ).Select
  8.             m = 5
  9.             While Sheets("feuille1" ).Cells(k, 1) <> Sheets("feuille2" ).Cells(m, 10)
  10.                 m = m + 1
  11.             Wend
  12.             If Sheets("feuille1" ).Cells(k, 1) = Sheets("feuille2" ).Cells(m, 10) Then
  13.                 Cells(m, 11).Select
  14.                 Selection.Copy
  15.                 Sheets("feuille1" ).Select
  16.                 Cells(k, 2).Select
  17.                 ActiveSheet.Paste
  18.             End If
  19.       Next k


 
ça te semble tjrs illogique/optimisable ?
 
il me reste qqes excpetions à gérer mais en gros ça tourne bien là.


---------------
Website|Like it ?
n°2885093
SuppotDeSa​Tante
Aka dje69r
Posté le 06-08-2009 à 17:01:34  profilanswer
 

Pour l'optimisation, je ne vois pas l'interet de passer par un copier/coller.
 
Comme mis dans mon exemple :
sheets("feuille1" ).cells(k,2).value=Sheets("feuille2" ).cells(m,11).value
 

tyler1207 a écrit :

mais en gros ça tourne bien là

C'est l'essentiel !


---------------
Soyez malin, louez entre voisins !
n°2886548
tyler1207
cowan, basagotia, lenosky...
Posté le 13-08-2009 à 16:45:36  profilanswer
 

vi :p
 
Est-ce que quelqu'un à une idée de comment masquer des lignes/colonnes mais avec la possibilité de "déplier" les lignes/colonnes masquées ?
 
je ne fais que masquer en fait, et je ne trouve pas l'option d'affichage qui permet d'avoir le petit "+" pour déplier le tout


---------------
Website|Like it ?
n°2886707
Guigui
Posté le 14-08-2009 à 13:42:31  profilanswer
 

tyler1207 a écrit :

vi :p
 
Est-ce que quelqu'un à une idée de comment masquer des lignes/colonnes mais avec la possibilité de "déplier" les lignes/colonnes masquées ?
 
je ne fais que masquer en fait, et je ne trouve pas l'option d'affichage qui permet d'avoir le petit "+" pour déplier le tout


C'est grouper / degrouper

n°2895155
Ptit loup
Quand c'est flou, y'a un loup
Posté le 21-09-2009 à 13:48:28  profilanswer
 

evariste a écrit :

Bonjour,
 
Est-il possible d'assigner à un raccourci clavier à une action dans xl?
Plus précisemment, je voudrais un raccourci sur insert row et insert column. ça serait encore mieux si ça pouvait être le même pour les 2 et que cela fonctionne selon qu'une colonne ou une ligne est activée.
 
Merci


Oui, c'est possible...
enfin, pour un "insert", (row ou column)... tu peux utiliser le raccourci existant "CTRL +" (et CTRL - pour supprimer).

n°2895158
Ptit loup
Quand c'est flou, y'a un loup
Posté le 21-09-2009 à 13:51:02  profilanswer
 


 

SuppotDeSaTante a écrit :


 
J'ai pas cherché pour le meme raccourci en fonction de si une ligne/colonne est sélectionnée ou pas.
La, tu te mets sur une cellule, genre B5, si tu fais Ctrl+Shift+Fleche droite il insere une colonne avant B5, et si toujours en B5, tu fais Ctrl+Shift+Fleche Bas, il insere une ligne au dessus de B5
 
A mettre dans ThisWorkbook :

Code :
  1. Private Sub Workbook_Open()
  2.     'Si les touches Ctrl+Shift+Fleche droite sont appuyées il lance la macro InsertColone
  3.     Application.OnKey "+^{RIGHT}", "InsertColone"
  4.     'Si les touches Ctrl+Shift+Bas sont appuyées il lance la macro InsertLigne
  5.     Application.OnKey "+^{DOWN}", "InsertLigne"
  6. End Sub


 
A mettre dans un module à la con :

Code :
  1. Sub InsertColone()
  2.     Selection.EntireColumn.Insert
  3. End Sub
  4. Sub InsertLigne()
  5.     Selection.EntireRow.Insert
  6. End Sub


 
Ca peut te donner deja une piste pour ton raccourci unique, meme si je ne trouve pas cela interressant et/ou logique.
 
Cordialement


 
Assez compliqué tout ça... disons que l'on peut déjà affecter une touche de raccourci aux macros (cf la boite d'ouverture des macros)... c'est un peu limité dans les raccourcis, mais bon, ça permet déjà qq trucs !

n°2896785
evariste
may the frag be with you
Posté le 29-09-2009 à 03:51:36  profilanswer
 

Ptit loup a écrit :


Oui, c'est possible...
enfin, pour un "insert", (row ou column)... tu peux utiliser le raccourci existant "CTRL +" (et CTRL - pour supprimer).


ah ouais !!!
 
thanks a lot

n°2896786
evariste
may the frag be with you
Posté le 29-09-2009 à 03:55:58  profilanswer
 

J'ai une autre question :
 
j'ai un classeur où j'ai pleins de feuilles, j'aimerai limiter les calculs à une feuille spécifique, c'est à dire que excel ne calcul que ce qui est nécessaire pour cette feuille ? est-ce possible?
 
ou autre solution : est-il possible d'avoir L'ENSEMBLE des liens d'une même sheet qui proviennent d'autre sheet(du même classeur), comme ça je pourrais virer tout ce qui ne sert à rien pour cette sheet


Message édité par evariste le 29-09-2009 à 03:57:05
n°2898222
Cougy
Play it fucking loud !
Posté le 06-10-2009 à 18:16:43  profilanswer
 

Bonjour à tous,
 
J'ai un petit soucis avec Excel (2007), j'ai du faire une fausse manipulation accidentelle et je me retrouve avec mes graphiques qui ne tracent plus les courbes... :/ Pour avoir les points des données dans mes graphiques, je suis obligé de passer par des graphiques de points ou de points + courbes mais les courbes ne s'affichent jamais.
 
J'ai tenté de réinitialiser mes graphiques, de les refaire, de refaire les tableaux de données, mais rien n'a changé : les courbes ne se dessinent plus.
 
Avez vous une idée d'où (non :D) cela peut venir ? :)


---------------
A.K.A. Korrozyf
n°2898447
tyler1207
cowan, basagotia, lenosky...
Posté le 07-10-2009 à 17:22:38  profilanswer
 

Guigui a écrit :


C'est grouper / degrouper


 
 
 :jap:  
 
j'ai une question concernant un TCD et son graph associé.  
 
J'aimerai savoir s'il y a une astuce qcq pour faire un histogramme empilé ET lui coller des courbes de tendance (chose qui n'est possible qu'avec un histogramme groupé visiblement).  
 
 
(sinon, je peux ptet gruger en faisant calculer ma courbe par excel, inclure les données dans une colonne supplémentaire du TCD, et faire un graph personnalisé avec un histo empilé + une courbe... bref, groos bricolage de m...!)


---------------
Website|Like it ?
n°2898690
Cestuila
De démocratie en démocrassies
Posté le 08-10-2009 à 22:56:09  profilanswer
 

Bonjour à tous :hello:

 

En espérant frapper à la bonne porte, j'ai une question à vous soumettre.

 

Je viens de créer un graphique du genre:

 


^
|
|                                              -
|                                             '  `
|                                             '   `
|                                             '   `
|                                             '   `
|                                             '   `
|                                             '    `
|                                             '     `
|                                             '      '
|                                             '      '      
|              ,---,                         '      '            ,---,
|  --------'      '-----------------'        --------'      '--------------------------'
|_______________________________________________________________________>

 

Problème: le grand pic au milieu me ruine les proportions de l'axe vertical.
Du coup, pour les parties basses du graphique, on ne voit presque pas les variations, puisqu'elles sont minimes sur l'échelle par rapport à ce gros pic.

 

Existe-t-il un moyen d'omettre une section de l'axe vertical avec des pointillés?
Dire, par exemple, là, on saute 100 unités, pour pouvoir montrer le haut du graphique, sans donner l'impression que dans le reste du graphique tout est à zéro ou presque.

 

Désolé si ce n'est pas très clair. Merci d'avance :jap:

 

PS: suis sous Excel 2007


Message édité par Cestuila le 08-10-2009 à 22:57:56

---------------
"Des frites sans ketchup, c comme une femme sans seins... à moins que ce soit l'inverse?"
n°2898699
xolth
Ranx.. znort!
Posté le 09-10-2009 à 00:42:26  profilanswer
 

Bonjour, une question excel 2007 :
 "Toujours créer une copie de sauvegarde" est une option qui existe sous word, je ne la trouve pas sous excel
Je précise que ça n'a rien à voir avec la récupération automatique, c'est pour pour avoir des *.bak automatiquement.

Message cité 1 fois
Message édité par xolth le 09-10-2009 à 00:46:44

---------------
On gagne à me connaître... mais on ne gagne pas à tous les coups.
n°2898725
Ptit loup
Quand c'est flou, y'a un loup
Posté le 09-10-2009 à 10:03:09  profilanswer
 

je ne crois pas qu'on puisse omettre une section de l'axe vertical, par contre tu peux utiliser une échelle logarithmique pour représenter ton graph
 
(je crois pas que ça existe pour Excel, mais c'est vrai que la différence entre Excel et Word est bizarre sur ce coup là... que dit l'aide ?)

mood
Publicité
Posté le   profilanswer
 

 Page :   1  2  3  4  5  ..  20  21  22  ..  112  113  114  115  116  117

Aller à :
Ajouter une réponse
 

Sujets relatifs
[EXCEL] Faire une mise à jour dynamique de valeur entre champsExcel : rechercher et afficher une liste
[EXCEL] Conversion/multiplication de massequestions sur la téléphonie avec free en 512k
Excel: Comment insérer automatiquement un titre à chaque page ?[excel] largeur de colonne différente
[Excel] (N00B Inside :-/ )Je veux additionner ...2 questions urgentes : Remplacer Photoshop et achat de scanner
changer la police par défaut sous Excel[Excel] Comment faire pivoter une feuille ?
Plus de sujets relatifs à : [Topic Unique] Excel : Keep calm and Pivot Table !


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)