Bonjour à tous,
ayant déjà obtenu une réponse via ce forum, je reviens en quête de nouvelle(s) astuce(s).
N'étant pas un pro de Excel (et encore moins des macros) je me débrouille en bricolant comme je peux, jusqu'au moment où j'ai besoin de plus futé que moi.
Le concept (simplifié) :
un formulaire de saisie (onglet 1) qui transforme les données en lignes (onglet 4 : chaque saisie, comportant plusieurs variables= 1 ligne)
Le but :
avoit mon onglet 4 remplis avec les différentes saisies effectuées dans l'onglet 1. Les saisies ne se font pas dans un ordre spécifique : on peut ainsi remplir la ligne 4, puis la 10 et ensuite la 7,...
Le bricolage (qui fonctionne manuelement, mais pas avec la macro que j'enregistre ) :
1. mes données sont transformées en lignes dans l'onglet 2
2. l'onglet 2 est copié dans l'onglet 3 (collage spécial valeurs), dans ce dernier je remplace les cellules contenant "FALSO" (= FAUX) par " "
3. l'onglet 3 est copié dans l'onglet 4 (collage spécial, valeurs + ignorer les blancs)
Le problème :
Le point 3 : passage de l'onglet 3 au 4 où les valeurs "FALSO" sont maintenues. Donc à chaque fois que je fais un enregistrement, les données précédentes sont recouvertes.
La macro :
Sub Macro1()
'
' Macro1 Macro
' Registar informações
'
'
Sheets("Plan1").Select
Cells.Select
Selection.Copy
Sheets("Plan2").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Selection.Replace What:="FALSO", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan3").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Sheets("INFO").Select
End Sub
En remerciant d'avance les âmes charitables qui se pencheront sur mon problème.