Bonjour ,
Je souhaite chercher dans la colonne H les cellules qui contiennent "http" ou "https" puis copier leurs lignes dans une autre feuille d'un autre classeur , voir le code ci dessous :
le souci avec ce code c'est qu'il cherche "http" mais dés qu'il le trouve il copie toutes les autres lignes qui sont après cette ligne peu n'importe le contenu ! par contre il faut q'il copie que les lignes qui contiennent "http" et "https"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 'Partie les lignes serveurs Set wst = Workbooks("gestion.xls").Worksheets("Tableau_Proxy") For Each wb In Workbooks 'on parcourt tous les classeurs ouverts If UCase(wb.Name) <> UCase("gestion.xls") Then derlignee = wst.Range("A65536").End(xlUp).Row + 1 derlignes = wb.Sheets("2. Servers").Range("A" & Rows.Count).End(xlUp).Row 'on recherche la première ligne contenant "http" Set re = wb.Sheets("2. Servers").Range("H:H" & derlignes).Find("http", lookat:=xlPart) If Not re Is Nothing Then wb.Sheets("2. Servers").Range("B" & re.Row & ":V" & derlignes).Copy wst.Range("A" & derlignee) End If
Merci pour votre aide.
Partager