Bonjours,
j'ai un document excel qui a importer du texte et
je veut rechercher une certaine valeur (ex. "aa112") dans une cellule (exemple A13)
transférer tout se qui a entre la A13 et la prochaine valeur "aa112" (ligne entiere) dans feuil2 et
faire sa a répétition pour les suivant exemple.
A13 a A40 = FEUIL2
A40 a A68 = FEUIL3
A68 a A112 = FEUIL4
Voici mon code jusqua maintenant voir sub test pour ma question...
Enfin peut être que je suis dans le champ avec ma sub test() mais ses pour sa que j'écrit car je suis confu.
je laisse un exemple de mon fichier excel
Merci
j'ai un document excel qui a importer du texte et
je veut rechercher une certaine valeur (ex. "aa112") dans une cellule (exemple A13)
transférer tout se qui a entre la A13 et la prochaine valeur "aa112" (ligne entiere) dans feuil2 et
faire sa a répétition pour les suivant exemple.
A13 a A40 = FEUIL2
A40 a A68 = FEUIL3
A68 a A112 = FEUIL4
Voici mon code jusqua maintenant voir sub test pour ma question...
Code:
Sub Test()
'Déclare la variable
Dim NomTableau() As String
Dim i, k, j, x As Integer
Dim pro As String
pro = "AA123"
j = 0
i = 0
k = 0
x = Application.CountIf(Range("a1:A" & Worksheets("Feuil1").Range("A65536").End(xlUp).Row), prohydraulique)
ReDim NomTableau(x)
With Worksheets("Feuil1").Columns(1)
For i = 0 To Worksheets("Feuil1").Range("A65536").End(xlUp).Row
Set C = .Find(pro, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
NomTableau(j) = C.Row
j = j + 1
End If
Next i
End With
End Sub
Sub Worksheet_Change()
Application.ScreenUpdating = False
Dim y As String, SH As Integer
SH = 0
On Error Resume Next
For SH = 1 To Worksheets.Count
y = Val(Mid(Sheets("Feuil" & SH).Range("A14"), InStr(Sheets("Feuil" & SH).Range("A14"), ":") + 1))
Sheets("Feuil" & SH).Name = y
Next SH
Application.ScreenUpdating = True
End Sub
Enfin peut être que je suis dans le champ avec ma sub test() mais ses pour sa que j'écrit car je suis confu.
je laisse un exemple de mon fichier excel
Merci
Dernière édition: