Discussion :

[phoceen26]

Bonjour,

J'ai besoin d'aide pour automatiser un fichier excel.

J'ai un fichier excel avec sur la 1ère ligne une liste de personne et sur la première colonne des catégories. A chaque fois qu'une personne fait partie de la catégorie le sigle C apparait dans le tableau au croisement de la ligne et de la colonne.

Je souhaite qu'à chaque fois qu'une valeur C est présente d'en le tableau l'insérer dans un autre fichier dans lequel on retrouve le nom des personne mais structuré d'une manière différente.

J'avais commencé à travailler sur un code mais je me suis vite retrouvé bloqué...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
 
Dim cel As Range
Dim table As Range
 
Set table = Range("F9:HN25")
 
    For Each cel In table
        If cel = "C" Then
 
        Else:
        End If
    Next cel
 
End Sub

Merci par avance de votre aide.

[Menhir]

Techniquement, c'est faisable sans problème.
Le problème, c'est que, à chaque fois que tu voudras faire une saisie, il va y avoir ouverture d'un fichier et sauvegarde, ce qui risque de rendre son usage très lourd.

Pour ouvrir un fichier, utilise Workbooks.Open
https://msdn.microsoft.com/fr-fr/lib.../ff194819.aspx
Pour placer une valeur dans une cellule, utilise l'objet Range référençant la cellule.
Pour sauvegarder le fichier, utiliser la méthode Save du Workbook concerné.

[phoceen26]

Oui en effet. Après la difficulté que je rencontre est plus pour écrire le code qui va identifier le nom de la personne ou un C est identifié puis la recherche dans l'autre fichier. Je sais pas si je suis clair dans mon explication?

[halaster08]

Je sais pas si je suis clair dans mon explication?

Non. Pas clair du tout.

Exemple:

dans un autre fichier dans lequel on retrouve le nom des personne mais structuré d'une manière différente.

Sans nous donner la structure du fichier comment veux tu qu'on t'aide?
Idem pour le premier fichier a par le fait qu'on puisse trouver un "C" quelquepart on ne sais pas grand chose.
Quelques imprim écran avec des exemples des deux fichiers seraient les bienvenus.

[Menhir]

Oui en effet. Après la difficulté que je rencontre est plus pour écrire le code qui va identifier le nom de la personne ou un C est identifié puis la recherche dans l'autre fichier. Je sais pas si je suis clair dans mon explication?

Ca dépend comment tu souhaites procéder.

Est-ce que tu veux que la modification se produise chaque fois que tu saisies (ou supprime) un caractère C dans ton tableau ou bien est-ce que tu veux déclencher une macro qui fasse cette mise à jour globalement à la fin ?
Personnellement, je conseillerais la seconde solution, la première risquant d'alourdir considérablement l'usage de ce fichier.

[phoceen26]

J'aimerai que lorsque dans le fichier ci-dessous un C est renseigné ou supprimé:


Le C apparaisse ou disparaisse dans mon autre tableau ci-dessous:


En considérant que nous travaillons dans le même fichier avec Feuil1 et Feuil2 quel serait le code ? Sachant que j’intégrerai la macro avant la fermeture du fichier.

Merci de votre aide.

[Marc-L]

Bonjour,

voir la méthode Range.Find dans l'aide VBA interne, c'est plus rapide que boucler sur toutes les cellules …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …