Macro de dépouillement de Formulaire Web

  • Initiateur de la discussion Initiateur de la discussion zuzul2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zuzul2

XLDnaute Nouveau
Bonjour,
j'ai reçois la réponse à mon formulaire web sous cet forme:

The following form contents were entered on 22nd Jun 11
Date = 22 Jun 11 18:24:32
resulturl =*Ce lien n'existe plus
subject = Formulaire_BonDeCommande
EventName3 = Yes
EventName1 = Yes

Total =*
Nom� =*
T�l�phone =*
E-mail =*
Adresse =*
Sous-total =*
Sous-total =*
Sous-total = 4
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total = 3
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total = 5
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total =*
Sous-total = 12

et je souhaite réaliser une macro permettant de supprimer les lignes en Rouge, et de transposer les autres données sur la feuille 2 afin d'imprimer une page clair. ce formulaire doit évidemment pouvoir être réutilisé a chaque fois que je reçois un formulaire.

pour le moment ma macro c'est :

Sub Macro2()
'
' Macro2 Macro
'
Dim der As Long
Dim i As Long
der = Range("A65536").End(xlUp).Row
For i = der To 1 Step -1
If Range("A" & i) = "EventName1 = Yes" Or Range("A" & i) = "EventName2 = Yes" Or Range("A" & i) = "EventName3 = Yes" Or Range("A" & i) = "EventName4 = Yes" Then Range("A" & i).Delete
Next i
'
Cells.Replace What:="Sous-total", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'
Cells.Replace What:="Nom? = ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'
Cells.Replace What:="T?l?phone = ", Replacement:="O", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

le problème c'est que les cellules de la feuille 2 même fixé évolue en même temps que la suppression des lignes mise en rouge.

Comment faire pour que les formules (=Feuil1!$A$6) n’évolue pas quand je supprime les lignes avec la macro.

Merci d'avance pour votre aide. j’espère avoir été clair.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
277
Réponses
2
Affichages
461
Réponses
3
Affichages
543
Retour