VBA boucle et incrémentation

Version imprimable

Bonjour, j'ai besoin d'un petit coup de pouce ;)
Ma VBA fonctionne mais j'ai du mal avec les boucles et les incrémentations:
j'aimerai faire un boucle au lieu de répété ce code (Address:"F" es une adress d'entreprise) : l'idée est de faire la meme chose sur A2,B2 avec le lien en C2. A3 B3 avec le liens en C3 ect ... ;) Merci pour vos réponses, si vous avez besoin dautres infos n'hesitez pas quelle boucle j'utilise et comment j'utilise l'incrémentation pour changer Ax Bx Cx dans la boucle. Merci à vous, bonne journée. :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 'Range les variables dans A et B Country = Range("A1") Num = Range("B1") 'créer les liens dans la colonne With Sheets("f") .Hyperlinks.Add Anchor:=.Range("C1"), _ Address:="F" & Country & Num, _ TextToDisplay:="Lien" End With 'Range les variables dans A et B Country = Range("A2") Num = Range("B2") With Sheets("f") .Hyperlinks.Add Anchor:=.Range("C2"), _ Address:="F" & Country & Num, _ TextToDisplay:="Lien" End With

Salut, voici une suggestion:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub AddHyperlinks()
    Dim i As Integer
    Dim lastRow As Integer
    Dim Country As String
    Dim Num As String
 
    ' Trouver la dernière ligne utilisée dans la colonne A
    lastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row
 
    ' Boucle pour parcourir toutes les lignes jusqu'à la dernière ligne
    For i = 1 To lastRow
        ' Lire les variables dans A et B pour chaque ligne
        Country = Sheets("Sheet1").Range("A" & i).Value
        Num = Sheets("Sheet1").Range("B" & i).Value
 
        ' Ajouter les hyperliens dans la colonne C pour chaque ligne
        With Sheets("f")
            .Hyperlinks.Add Anchor:=.Range("C" & i), _
            Address:="F" & Country & Num, _
            TextToDisplay:="Lien"
        End With
    Next i
End Sub

Merci je vais essayer ça aujourd'hui ! :D trop cool
[
QUOTE=Franc;12038070]Salut, voici une suggestion:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub AddHyperlinks()
    Dim i As Integer
    Dim lastRow As Integer
    Dim Country As String
    Dim Num As String
 
    ' Trouver la dernière ligne utilisée dans la colonne A
    lastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row
 
    ' Boucle pour parcourir toutes les lignes jusqu'à la dernière ligne
    For i = 1 To lastRow
        ' Lire les variables dans A et B pour chaque ligne
        Country = Sheets("Sheet1").Range("A" & i).Value
        Num = Sheets("Sheet1").Range("B" & i).Value
 
        ' Ajouter les hyperliens dans la colonne C pour chaque ligne
        With Sheets("f")
            .Hyperlinks.Add Anchor:=.Range("C" & i), _
            Address:="F" & Country & Num, _
            TextToDisplay:="Lien"
        End With
    Next i
End Sub

[/QUOTE]

merci merci ca marche trop bien ! jvai analyser le code pour comprendre mieu ! trop cool ;)

Citation:

Envoyé par pigny

Merci je vais essayer ça aujourd'hui ! :D trop cool
[
QUOTE=Franc;12038070]Salut, voici une suggestion:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub AddHyperlinks()
    Dim i As Integer
    Dim lastRow As Integer
    Dim Country As String
    Dim Num As String
 
    ' Trouver la dernière ligne utilisée dans la colonne A
    lastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row
 
    ' Boucle pour parcourir toutes les lignes jusqu'à la dernière ligne
    For i = 1 To lastRow
        ' Lire les variables dans A et B pour chaque ligne
        Country = Sheets("Sheet1").Range("A" & i).Value
        Num = Sheets("Sheet1").Range("B" & i).Value
 
        ' Ajouter les hyperliens dans la colonne C pour chaque ligne
        With Sheets("f")
            .Hyperlinks.Add Anchor:=.Range("C" & i), _
            Address:="F" & Country & Num, _
            TextToDisplay:="Lien"
        End With
    Next i
End Sub

[/QUOTE]