Discussion :

[pigny]

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 :

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
'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

[Franc]

Salut, voici une suggestion:

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
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

[pigny]

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

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
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]

[pigny]

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

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

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
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]