Boucle sur deux colonnes

[jose.carreira]

Bonjour
Je recherche à créer une boucle sur deux colonnes.

Colonne B une série de chiffres liés à un document sur internet sur un site (ex. google)
Colonne C une autre série de chiffres pour un autre site (ex. Ask).

Normalement les boucles fonctionnent ligne par ligne.
J’ai créé deux boucles pour me faire ce traitement, mais j’avoue que ne trouve pas cela très jolie.
Y aurais t’il aune méthode plus simple pour ce traitement ?

Voici ma boucle actuelle.

Sub Boucle()
Derligne_cible = Range("B2000").End(xlUp).Row 'trouve la dernière ligne de la colonne B
Range("B2").Select 'cellule de démarrage
'Traitement des N° et des liens (colonne B)
    For l = 1 To Derligne_cible 'l => n° ligne ver la fin
    If ActiveCell <> "" Then
        Destination = ActiveCell.Address(0, 0) ' cellule de destination
    Valeur = ActiveCell
'    ActiveCell.ClearContents
        With ActiveSheet 'sur cette feuille
            .Range(Destination) = Valeur
            .Hyperlinks.Add .Range(Destination), "http://www.google=" & Valeur 'ajoute le lien + la valeur de la cellule
        End With
    ActiveCell.Offset(1, 0).Activate 'ligne suivante
    Else
    ActiveCell.Offset(1, 0).Activate 'ligne suivante
    End If
    Next 'Boucle suivante
Range("C2").Select 'cellule de démarrage
'Traitement des N° et des liens (colonne C)
    For l = 1 To Derligne_cible 'l => n° ligne ver la fin
    If ActiveCell <> "" Then
        Destination = ActiveCell.Address(0, 0) ' cellule de destination
    Valeur = ActiveCell
        With ActiveSheet 'sur cette feuille
            .Range(Destination) = Valeur
            .Hyperlinks.Add .Range(Destination), "http://www.ask=" & Valeur 'ajoute le lien + la valeur de la cellule
        End With
    ActiveCell.Offset(1, 0).Activate 'ligne suivante
    Else
    ActiveCell.Offset(1, 0).Activate 'ligne suivante
    End If
    Next 'Boucle suivante
    Range("B21").Select 'retour a la cellule de démarrage
End Sub

Merci d'avance pour votre aide.

 

[gosselien]

Re : Boucle sur deux colonnes

Bonjour,

comme c'est très souvent demandé ici, dépose un fichier exemple sans données confidentielles et les as (donc pas moi ) pourront t'aider

P.

 

[jose.carreira]

Re : Boucle sur deux colonnes

Désoler.
Voici un exemple de fichier.
Cordialement.