Discussion :

[Exceleur]

Bonjour à tous,

Je cherche à faire des options avancées pour une base de données excel. Certaines peuvent impliquer l'usage de macro (que je ne maîtrise pas du tout mais suis prêt à essayer). J'ai cherché sur google avant, ce qui m'a permis de résoudre un grand nombre de questions. Voici celles qui subsistent néanmoins. Peut-être sauriez-vous y répondre, si c'est le cas, je vous en serais extrêmement reconnaissant.


1 -
Dans mon tableau excel, chaque ligne représente une personne, et chaque colonne est une information sur la personne. Dans chaque ligne, il y a une cellule "date de la dernière mise à jour". Je cherche un moyen qui mette à jour automatiquement la cellule DATE dès qu'une modification est effectuée sur la même ligne, comme ça je sais de quand date la dernière modification apportée sur une personne. Est-ce que c'est possible ?


2 -
J'utilise une fonction (index) qui permet de transférer du contenu de ma feuille A sur une feuille B mise en page selon le numéro de ligne que je sélectionne. Ce qui m'embête c'est que chaque fois que je décide de transféer une ligne spécifique sur la mise en page de la feuille B, il faut ensuite que je sélectionne toutes les cellules de cette feuille B et que je fasse "Ajuster la hauteur de ligne", car cela ne se fait pas automatiquement. Je voudrais trouver un moyen pour que les cellules de la feuille B détectent quand elles sont modifiées et qu'elles s'ajustement automatiquement à leur nouveau contenu.


J'ai plusieurs autres questions mais voici mes deux plus importantes pour l'instant.

Je vous remercie infiniment pour votre aide. Bonne journée !

[Jean-Philippe André]

Salut,

l'utilisation d'Access eut-ete ici tellement plus efficace =]

1- Concernant la mise a jour automatique, tu peux regarder les evenement Worksheet_Change() + Target + Intersect()
2- En VBA, ca se fait simplement, est-ce une option possible pour toi ?

[Bob78280]

Pour ton premier point, code VBA :
10 est pour la colonne de date de dernière mise à jour
=> à remplacer (les deux 10) par le vrai numéro de colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
     If Target.Column <> 10 Then
         Cells(Target.Row, 10).Value = Date
     End If
 
End Sub

Pour le point 2, j'ai du mal à voir comment tu transfères d'un onglet à l'autre.
Si c'est aussi par VBA, ajoute à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("4:4").EntireRow.AutoFit

avec 4 : le numéro de la ligne modifiée.

[riaolle]

Bonjour
Pour le point 2, je pense que tu peux facilement trouver quelque chose en utilisant l'enregistreur de macro.

[Exceleur]

Bonjour,

Merci à tous.

Pour le point 1, j'ai utilisé le code VBA de Bob et ça marche parfaitement. Jean-Philippe André je n'ai pas compris à quoi tu faisais référence désolé

Pour le point 2, j'ai essayé le code de Bob mais ça ne marche pas étrangement, je dois mal m'y prendre. J'ai copié ce code dans ma feuille B et j'ai fait le test pour la ligne 37, donc j'ai remplacé les deux "4" du code par deux "37". En fait j'ai besoin de ce code pour les lignes 17 à 63, donc j'ai aussi essayé hasardeusement d'écrire 17:63 dans la formule. Dans les deux cas ça n'a pas marché. Je pense que ça ne marche pas car les cellule

Je n'ai pas essayé l'enregistrement de macro mais je ne suis pas sûr que cela marche dans mon cas. Peut-être qu'une meilleure explication de mon processus pourra débloquer le problème.

En fait j'ai un tableau sur la feuille A avec une ligne par personne. J'utilise une fonction qui permet de cibler une des lignes du tableau et la retranscrire en-dessus du tableau. Pour cibler la ligne, j'ai déterminé une cellule spéciale (une cellule de commande si on peut appeler ça comme ça) dans laquelle j'ai juste à écrire le numéro de la ligne. Dans cette case, je vais par exemple écrire "25" et ça va automatiquement retranscrire toute la ligne 25 sur une ligne Y en-dessus du tableau. Puis, j'utilise une simple fonction "=" pour reporter les valeurs de cette ligne Y sur une feuille B. Cette feuille B est mise en page et j'ai fait en sorte que chaque cellule de la ligne Y tombe sur un compartiment spécial mis en page.

Ainsi, la feuille B change de contenu chaque fois que j'écris un numéro de ligne différent dans ma cellule de commande. Je pense que c'est à cause du fait que j'utilise une fonction de "=" pour ramener des informations d'une autre feuille que la feuille B ne détecte pas de changement de contenu et donc ne se réajuste pas.

Merci beaucoup pour votre aide !

[Bob78280]

Bon, j'ai compris pour ton point 2. Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
if Target.Row = 1 and target.Column = 1 then
     Sheets("FeuilleB").Rows("17:63").EntireRow.AutoFit
end if
End Sub

Ce code est à mettre dans la FeuilleA
Target.Row = 1 and target.Column = 1 => position de ta cellule spéciale (celle où tu mets 25 dans ton exemple).


Oups, alors les deux points ensemble, ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Target.Row = 1 And Target.Column = 1 Then    ' si tu modifies ta cellule spéciale alors
     Sheets("FeuilleB").Rows("17:63").EntireRow.AutoFit   ' ajustement automatique des lignes de 17 à 63 de la feuille B
ElseIf Target.Column <> 10 Then                                ' sinon si tu modifies une cellule n'appartenant pas à la colonne 10 alors
     Cells(Target.Row, 10).Value = Date                        ' on met la date du jour dans la colonne 10 de la ligne modifiée
End If

[Exceleur]

Super, ça a marché !!!! Merci infiniment. Juste un petit détail, en fait ma cellule spéciale est sur une feuille C. Comment est-ce que je peux intégrer cette information au code VBA ?

Aussi deuxième petit problème, celui-ci je ne sais pas s'il peut être résolu. C'est un problème que j'avais aussi quand je faisais l'ajustement automatique à la main. En fait, toutes mes cellules de la feuille B sont en réglage "renvoyer à la ligne automatiquement". Et la taille de la colonne est fixe. Parfois, l'ajustement de la taille de la ligne crée un retour à la ligne indésirable, alors même qu'il n'y a pas de retour à la ligne inscrite dans la cellule. Cela disparaît si j'élargis ou rétrécit la taille de la colonne, mais dans l'idéal je souhaiterais que la taille de la colonne reste fixe. D'où vient ce retour à la ligne ? Y a t-il un moyen d'éviter qu'il survienne ?

Merci encore !