Discussion :

[AzelRoth]

Bonjour à tous,

J'ai actuellement un souci pour travailler sur les lignes de mon tableau. Je m'explique, j'extrais des données sur ma Feuil5 en colonne A et B. De là je fais une boucle sur ma colonne A pour trouver la valeur qui m'intéresse, lorsque j'ai cette valeur, je copie la valeur de la cellule présente en colonne B et je la colle en Feuil1 mais sur la ligne 5 dans la colonne A. Je souhaite faire un pas de 2 pour me retrouver en C5 du coup et copier la valeur d'une extraction. Mais le problème est que lors du passage dans ce morceau de code j'ai une erreur "Propriété ou méthode non gérée par cet objet". Je place le code si quelqu'un peut m'aider. J'en profite aussi pour vous demander si l'utilisation d'un pas est possible dans le code VBA Excel? Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
Dim Site As Range
 
    Sheets(5).Active
    For Each Site In Range("A1", Range("A65536").End(xlUp))
        If Site = "Variable Serveur" Then
            Site.Offset(0, 1).Copy Destination:=Sheets(1).Range("A5")
        End If
    Next Site

[casefayere]

Bonjour azelroth, re le forum,

Cette ligne me parait

Code :

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

bizarreSheets(5).Active

ça ne serait pas plutot

Code :

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

Sheets(5).Activate

peux-tu essayer comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Site As Range
 
    with Sheets(5)
    For Each Site In .Range("A1", .Range("A65536").End(xlUp))
        If Site = "Variable Serveur" Then
            Site.Offset(0, 1).Copy Destination:=Sheets(1).Range("A5")
        End If
    Next Site
   end with

[JPierreM]

Pour faire du pas à pas dans ta procédure appuie sur la touche F8

[AzelRoth]

Bonjour,

En effet casefayere, déjà je me suis planter dans l'activate et pas active. Lol. J'ai corrigé ça après. Ton code fonctionne bien par rapport au mien. Merci.

Par contre Lynx, ton code ne fonctionne pas après modification de Feuill5 et Feuill1 en Feuil5 et Feuil1. Mais tu m'as donner le code pour le step c'est parfait merci.

Je vais essayer de faire un mix des deux codes que vous m'avez donner. Merci à vous deux.

L'association des deux codes fonctionne à merveille. Mais serait-il possible de me déplacer dans la ligne 5 de ma Feuil1 et de d'insérer d'autres valeurs que je trouve si elle sont différentes? D'où le besoin du pas de 2. En gros tant que je trouve de nouvelles valeurs je les mets en Feuil1 sur la ligne 5 mais avec un décalage de 2 cellules vers la droite.

Je vais quand même placer le mix des deux codes pour vous montrer, l'association des deux.

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
     Dim Site As Range
    Dim lFin As Long, iLig As Long
 
    'Dernière ligne
    lFin = 2500
 
    'Classement par site
    For iLig = 1 To lFin Step 2
        With Sheets(5)
            For Each Site In .Range("A1", .Range("A65536").End(xlUp))
                If Site = "Variable Serveur" Then
                    Site.Offset(0, 1).Copy Destination:=Sheets(1).Range("A5")
                End If
            Next Site
        End With
    Next iLig

[AzelRoth]

Encore moi, pour info j'ai réussi à aller plus loin dans le code :

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
 Dim Site As Range
    Dim c As Integer
 
    c = 1
 
    'Classement par site
    Do
        With Sheets(5)
            For Each Site In Range("A1", .Range("A65536").End(xlUp))
                If Site = "Variable Serveur" Then
                    If Site.Offset(0, 1) = Sheets(1).Cells(5, c) Then
                        Call Copiercoller
                    Else
                        Site.Offset(0, 1).Copy Destination:=Sheets(1).Cells(5, c)
 
                    'Appel de la macro Lecture()
                    'Call Lecture
 
                    'Appel de la macro de suppression des logiciels.
                    'Call Suppression
 
                    End If
                End If
            Next Site
        End With
        If c < 256 Then
            c = c + 2
        End If
    Loop While c <= 255

[Lynx92260]

Voila ce que je te propose avec un pas de deux

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
 
 
Sub Parcours()
Dim lFin As Long, iLig As Long, lCur As Long
 
Dim xls5 As Worksheet, xls1 As Worksheet
    Set xls5 = ThisWorkbook.Worksheets("Feuill5")
    Set xls1 = ThisWorkbook.Worksheets("Feuill1")
    ' Derniere ligne
    lFin = 30000
    ' Ligne de copie
    lCur = 1
    ' avec un pas de deux
    For iLig = 4 To lFin Step 2
 
        If xls5.Cells(iLig, 1) = "Variable Serveur" Then
            ' copie
            xls1.Cells(lCur, 1) = xls5.Cells(iLig, 2)
            lCur = lCur + 1
        End If
 
    Next
 
End Sub

A vos claviers