voici le code mon bouton :
--------------------------------------------------------------------
Sub Replace_btn_Click()
Dim i As Integer
Dim Valcel As Variant
Dim max_boucles As Integer
Dim IndexTab As Integer
Dim Info As Integer
Dim TabRech
Dim NbCellTab As Integer
max_boucles = 40 'limite de répétitions de la boucle est définie
On Error Resume Next
'Alimente les éléments du tableau
TabRech = Array("VIRMT COMPTE ", _
"CARTE ", ...)
NbCellTab = UBound(TabRech)
For i = 2 To 39 'Boucles prévues : 39
Range("A" & i).Select
If (i > max_boucles) Or (Range("A" & i).Value = "" ) Then 'Si A1 est vide ou contient un nombre < 7, diminution du nb de boucles
Exit For 'Si condition vraie, on quitte la boucle For
End If
Valcel = Range("A" & i).Value
For IndexTab = 0 To NbCellTab
Info = InStr(Valcel, TabRech(IndexTab))
Select Case TabRech(IndexTab)
Case TabRech(0)
ActiveCell.Replace What:=TabRech(0), Replacement:="VIRMT-", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Cells.Find(What:=TabRech(0), After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Case TabRech(1)
...
Case TabRech(2)
...
End Select
Next
Next
End Sub
--------------------------------------------------------------------
C'est cette partie qui m'ennnuie :
Select Case TabRech(IndexTab)
Case TabRech(0)
ActiveCell.Replace What:=TabRech(0), Replacement:="VIRMT-", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Cells.Find(What:=TabRech(0), After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Select
Car je suis obligé à chaque ligne d'extraction, d'alimenter manuellement mon tableau + mon select.
Aujourd'hui j'ai mis 15 éléments dans mon tableau avec le select (qui lancement l'opération de remplacement du libellé) qui s'accompagne; Le problème est que les dates changent. On aura pour le 15/04 une opération avec BLABLA 15/04 BLABLA et le lendemain BLABLA 16/04 BLABLA et le renommage devient caduc.
est-ce plus précis?
-
