Discussion :

[coolmomodu31]

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 :

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

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"
Merci pour votre aide.

[parmi]

Comme ceci peut-être ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set re = wb.Sheets("2. Servers").Columns("H").Find("http", lookat:=xlPart)
   If Not re Is Nothing Then
      wb.Sheets("2. Servers").Range("B" & re.Row & ":V" & re.Row).Copy wst.Range("A" & derlignee)
   End If

Et s'il y a plusieurs occurences à copier, il faudra que tu utilises FindNext (voir ton aide - F1)

[coolmomodu31]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Set re = wb.Sheets("2. Servers").Range("H6:H" & derlignes).Find("http", lookat:=xlPart)
If Not re Is Nothing Then
wb.Sheets("2. Servers").Range("B" & re.Row & ":V" & re.Row).Copy wst.Range("A" & derlignee)
End If

maintenant il copie que la première ligne qui contient "http" le souci ce qu'il ne continue pas à tester les autres lignes qui suivent !

[coolmomodu31]

j'ai trouver quelque chose d'utile je pense mais je n'arrive pas à l'interpréter à mon cas :
un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[parmi]

Ça devrait ressembler à ça.
Prend le temps d'essayer de comprendre ce que fait chaque ligne.
Utilise le pas à pas (F8) si nécessaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set re = wb.Sheets("2. Servers").Columns("H").Find("http", lookat:=xlPart)
    If Not re Is Nothing Then
       firstAddress = re.Address
       Do
          derlignee = wst.Range("A65536").End(xlUp).Row + 1
          wb.Sheets("2. Servers").Range("B" & re.Row & ":V" & re.Row).Copy wst.Range("A" & derlignee)
 
          Set re = wb.Sheets("2. Servers").Columns("H").FindNext(re)
       Loop While Not re Is Nothing And re.Address <> firstAddress
    End If
Set re = Nothing

[coolmomodu31]

Merci bien , voici le code final qui a fonctionné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 '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 les lignes contenant "http"
 
        With wb.Sheets("2. Servers")
            Set re = wb.Sheets("2. Servers").Range("H1:H" & derlignes).Find("http", lookat:=xlPart)
            If Not re Is Nothing Then
                firstAddress = re.Address
                Do
                    wb.Sheets("2. Servers").Range("B" & re.Row & ":V" & re.Row).Copy wst.Range("A" & derlignee)
                    derlignee = derlignee + 1
                    Set re = .Range("H1:H" & derlignes).FindNext(re)
                Loop While Not re Is Nothing And re.Address <> firstAddress
            End If
        End With

maintenant je souhaite ajouter "https" : je veux les lignes ou on trouve "http" ou "https" Merci , j'ai fait ça mais ça donne des répétitions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
'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 les lignes contenant "http"
 
        With wb.Sheets("2. Servers")
            Set re = wb.Sheets("2. Servers").Range("H1:H" & derlignes).Find("http", lookat:=xlPart)
            If Not re Is Nothing Then
                firstAddress = re.Address
                Do
                    wb.Sheets("2. Servers").Range("B" & re.Row & ":V" & re.Row).Copy wst.Range("A" & derlignee)
                    derlignee = derlignee + 1
                    Set re = .Range("H1:H" & derlignes).FindNext(re)
                Loop While Not re Is Nothing And re.Address <> firstAddress
            End If
        End With
 
        'on recherche les lignes contenant "https"
       With wb.Sheets("2. Servers")
            Set re1 = wb.Sheets("2. Servers").Range("H1:H" & derlignes).Find("https", lookat:=xlPart)
            If Not re1 Is Nothing Then
                firstAddress = re1.Address
                Do
                    wb.Sheets("2. Servers").Range("B" & re1.Row & ":V" & re1.Row).Copy wst.Range("A" & derlignee)
                    derlignee = derlignee + 1
                    Set re1 = .Range("H1:H" & derlignes).FindNext(re1)
                Loop While Not re1 Is Nothing And re1.Address <> firstAddress
            End If
        End With
 
    End If
 
Next

[parmi]

Si tu utilise xlPart avec une recherche sur HTTP, ça devrait ressortir les HTTPS en même temps...

[coolmomodu31]

ouiiii , merci j'ai pas fais attention excellente journée

[coolmomodu31]

maintenant quand je souhaite le résultat contraire : toute les lignes qui ne contiennent pas ( "http" ou "https") , j'ai mis ce code , mais ça donne un résultat vide !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'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 les lignes contenant "http et https"
       With wb.Sheets("2. Servers")
        Set re = wb.Sheets("2. Servers").Range("H1:H" & derlignes).Find("http", lookat:=xlPart)
        If re Is Nothing Then
        firstAddress = re.Address
        Do
        wb.Sheets("2. Servers").Range("B" & re.Row & ":V" & re.Row).Copy wst.Range("A" & derlignee)
        derlignee = derlignee + 1
        Set re = .Range("H1:H" & derlignes).FindNext(re)
        Loop While  re Is Nothing And re.Address <> firstAddress
        End If
        End With
        End If
        Next

[parmi]

Le problème, c'est que Find recherche des données existantes.
Dès qu'un HTTP existe il ne retournera pas autre chose.

Il te faudrait alors boucler chaque ligne et utiliser Instr() pour voir si le mot HTTP est là ou non.

Autrement, tu pourrais travailler avec les filtres automatiques <>"*HTTP*" pour masquer tous les HTTP et tu utilises SpecialCells(XlCellTypeVisible) pour lire les lignes visibles seulement (voir l'aide)

[Marc-L]

maintenant quand je souhaite le résultat contraire : toute les lignes qui ne contiennent pas ( "http" ou "https")

Bonjour,

voir l'aide VBA concernant la fonction Filter par exemple …

Ou bien, aussi valable pour la problématique d'origine, via un filtre automatique comme dans cette discussion …

[coolmomodu31]

Bonjour,
qu'est ce que vous pensez de ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub ACL_Servers_Lines()
 
Dim ret As Integer
ret = MsgBox("Souhaitez-Vous toutes les Lignes (Servers) ?", vbYesNo, " ATOS / RENAULT (EIS) ")
If ret = vbNo Then
Exit Sub
Else
 
 
' wst = feuille tableau du classeur gestion
 
Set wst = Workbooks("gestion.xls").Worksheets("Tableau_ACL")
derligne = wst.Range("A65536").End(xlUp).Row + 1
Sheets("Tableau_ACL").Activate
Cells(derligne, 1) = Range("dt").Value
Cells(derligne, 2) = Range("demandeur").Value
Cells(derligne, 3) = Range("adresse").Value
Cells(derligne, 4) = Range("Statut").Value
Cells(derligne, 5) = Range("CDS").Value
 
 Range("demandeur").Value = ""
 Range("adresse").Value = ""
 Range("Statut").Value = ""
 Range("CDS").Value = ""
 
 'Partie les lignes serveurs
 
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
wb.Sheets("2. Servers").Range("B6:V100").Copy wst.Range("A" & derlignee)
End If
Next
End If
 
'supprimmer les lignes contenent "http"
For i = dernligne To 1 Step -1
If Workbooks("gestion.xls").Worksheets("Tableau_ACL").Cells(i, 7) = "http" Then
Workbooks("gestion.xls").Worksheets("Tableau_ACL").Cells(i, 7).EntireRow.Delete
End If
Next i
 
End Sub

[parmi]

Difficile à dire sans tout connaître ce que tu fasi, maias ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wb.Sheets("2. Servers").Range("B6:V100").Copy wst.Range("A" & derlignee)

Est-ce que c'est toujours B6:V100 ?

Et ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Workbooks("gestion.xls").Worksheets("Tableau_ACL").Cells(i, 7) = "http" Then
Workbooks("gestion.xls").Worksheets("Tableau_ACL").Cells(i, 7).EntireRow.Delete

Est-ce que la cellule ne contient que HTTP ?
Parce qu'on parlait de HTTPS aussi...

Alors peut-être faudrait-il utiliser Instr() pour vérifier la présence de HTTP, ce qui inclurait HTTPS et d'autres mots...