Discussion :

[MiXinG]

Bonjour à tous!

Voici le problème sur lequel je planche depuis un bon bout de temps sans y arriver.

L'idée c'est que j'ai une feuille excel, que l'on remplie de données brutes, qui servent à générer des rapports. La procédure à suivre est la suivante:

1. Sélectionner les données préexistantes (ctrl + A)
2. Supprimer ces données (suppr)
3. Ajouter ses données persos (ctrl + V après avoir sélectionné A1)

Comme ces données sont brutes, la macro insère automatiquement le titre des colonnes (que j'appelle l'entete).
L'entete varie d'une feuille à l'autre et d'une langue à l'autre.

Cette feuille sert à la génération de rapport. Les cas d'utilisation sont les suivant:

1. Il n'y a pas d'entete, donc il faut insérer l'entete
2. il y a un entete, donc on supprimer cet entete et on remet le nouvel entete (pour être sûr qu'il soit dans la bonne langue)

Mon problème est que je n'arrive pas à savoir s'il y a un entête ou non.
La solution brutale serait de comparer la premiere ligne à tous les entetes possibles, mais c'est un peu trop brutal. J'ai essayé une méthode plus fine en nommant la première cellule, mais lorsque l'utilisateur supprime les données (et donc l'entete), le nom de la cellule n'est pas supprimé. Donc mon test ne fonctionne pas.
Au niveau du code voila ce que j'avais :

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
16
17
18
19
20
21
22
23
24
Sub Inserer_Entete(nomFeuille As String)
Dim i As Integer, ligneEnTete As Integer, indexNom As Integer
ligneEnTete = -1
indexNom = -1
For i = 1 To ThisWorkbook.Names.Count Step 1
    If (ThisWorkbook.Names(i).Name = ENTETEINSERE & nomFeuille) Then
        indexNom = i
    End If
Next i
'Si le nom de cellule existe on le supprime
If (indexNom <> -1) Then
    If (cellule_porte_un_nom("$A$1")) Then
        ligneEnTete = ThisWorkbook.Names.Item(indexNom).RefersToRange.Row
    End If
ThisWorkbook.Names.Item(indexNom).Delete
End If
'Si la ligne d'entête existe on la supprime
If (ligneEnTete <> -1) Then
    Rows(ligneEnTete & ":" & ligneEnTete).Select
    Selection.Delete
End If
    Rows("1:1").Select
    Selection.Insert Shift:=xlUp
...

Merci d'avance pour votre aide!

[fgiambelluco]

Si une des colonnes contenait une valeur ou une date, ce serait l'idéal.
Il suffirait de tester si sur la 1ere ligne cette cellule est numérique ou date.


--------------
Frédéric
http://www.access-developpement.com

[CRACOS38]

Salut,
Pourquoi ne pa donner une couleur à ta cellule, et tester celle-ci ?
Si éventuellement tu veux des codes je dois avoir ça dans mon b.....

[MiXinG]

salut!
merci pour vos réponses.
Pour les dates ou les chiffres ça ne fonctionne pas car j'ai plusieurs en tete différents qui ne contiennent pas forcément des chiffres ou des dates.
Pour la couleur, lorsqu'on supprime les données, la couleur reste donc le test ne fonctionnera pas.

[fgiambelluco]

Quand je parlais de 1ere ligne, je pensais à la 1ere ligne de données pas à celle de l'entête.
Il doit forcément y avoir des données de type date ou numérique dans une colonne

[CRACOS38]

Pourquoi tu ne passes pas par un bouton renvoyant à une macro de sup, modif .... protege ta feuille de façon que les utilisateurs soit obligés,
1erement de selectionner avec la souris la cellule concernée, 2emement de cliquer sur le bouton et là tu mets ce que tu veux

[MiXinG]

fgiambelluco: en gros ce que tu veux faire, c'est passer en revue toutes les cellules de la première ligne te regarder s'il n'y a pas de chiffre ou de dates et à ce moment la ce serait une ligne d'entete et on peut la supprimer? Je vais essayer pour voir

CRACOS38: je ne comprends pas ta solution, je ne suis pas sûr d'avoir bien compris. Ce traitement est fait au milieu de la macro et non lorsque l'utilisateur insère ses données, je ne peux donc pas mettre de bouton, puisque l'utilisateur ne touche plus à rien.

Merci à vous deux de m'aider en tout cas!

[CRACOS38]

Désolé, mais tu n'est pas très clair pour moi, tu dis :" mais lorsque l'utilisateur supprime les données (et donc l'entete), le nom de la cellule n'est pas supprimé " je ne vois pa sce qui t'empeches de lancer un controle à ce moment là.