Discussion :

[Eleanor]

Bonjour à toutes et à tous,

Voilà j'ai un gros problème au niveau d'un ClearContents.

J'ai une feuille qui contient des données (feuil1) insérées à l'aide d'un userform. Puis avec ses données, certaines informations sont reportées sur une autre feuille, la feuille 2(Grâce à des formules du type en A1

Code :

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

=SI(Feuil1!$F$2<> "";Feuil1!$F$2;Feuil1!$G$2)

, en B1

Code :

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

=SI(Feuil1!$F$3<> "";Feuil1!$F$3;Feuil1!$G$3)

Le problème par la suite, lorsque je souhaite effacer les données de la feuille 1. Lorsque je souhaite remettre des données sur la feuille 1 (avec l'userform), la formule de ma cellule A1 de ma feuille 2 est modifiée, c'est-à-dire qu'elle devrait reser la même, mais elle se modifie toute seule pour devenir

Code :

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

=SI(Feuil1!$F$3<> "";Feuil1!$F$3;Feuil1!$G$3)

.

Idem pour la cellule B1 qui est modifiée et devient :

Code :

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

=SI(Feuil1!$F$4<> "";Feuil1!$F$4;Feuil1!$G$4)

.

Voilà. Si quelqu'un à une idée s'il vous plait.

Merci d'avance à toutes et à tous

[EngueEngue]

tu as inséré une ligne entre avant la ligne 2 dans ton code

[Eleanor]

Je n'ai pas compris ta question :s. Peux-tu répéter s'il te plait?

[EngueEngue]

Ce n'est pas une question c'est une affirmation.

Tu as inséré une ligne entre la ligne 1 et la ligne 2 du coup tes formules se sont décalées.

Mets ton code et on pourra t'aider. Sans quoi... pas de grande chance de trouver une solution.

[Eleanor]

Mais c'est vraiment bizarre car sur ma feuille 2 je n'ai pas vraiment de VBA (simplement des formules).

J'ai utilisé ce code pour effacer mes données sans affecter mes formules, est-ce ceci qui pourrait poser problème?

Code :

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

1
2
3
On Error Resume Next
Sheets("feuil2").Range("A:E").SpecialCells(xlCellTypeConstants, 1).ClearContents
If Err <> 0 Then Err = 0

Merci pour votre aide.

[EngueEngue]

non