XL 2019 vba

[ker71]

bonjour,

j'ai fait une boucle sur vba pour creer des liens sur à partir d'une liste.
J'ai cependant le probleme suivant: dans la liste source, je veux sauter les lignes vides, et dans le tableau de restitution je veux passer à la ligne suivante pour garder une ligne vide quand il y a une cellule vide dans la liste source.
Merci beaucoup pour votre aide

 

[sylvanu]

Bonjour Ker, et bienvenu sur XLD,
Le seul moyen est de gérer deux index un en lecture et un en écriture.
Votre index de lecture est i, il faut créer un index d'écriture ( par ex Ligne )
Si la cellule du tableau est non vide, on bosse, sinon on passe à l'indice i suivant.
par ex la fin de votre code :

a = "tableau" 'feuille où on va coller
b = "Dijon'!" 'feuille où on va chercher le valeur
w = "='C:\Users\U021157\Documents\u021157\Fichiers envoyés\a\macros"
y = "[villes.xlsm]"
Z = 2 'colonne à aller chercher
q = 3 'colonne où mettre les données
Ligne = 1   ' Ligne à écrire
For i = 1 To 15
    x = tableau(i) 'lignes à aller chercher
    If x <> "" Then ' Si cellule tableau non vide, faire ...
        Sheets(a).Cells(Ligne, q).FormulaR1C1 = w & "\" & y & b & "R" & x & "C" & Z
        Cells.Replace What:="$", Replacement:=""
        Cells(Ligne, q).Select
        Selection.AutoFill Destination:=Range(Cells(Ligne, q), Cells(Ligne, q + 10)), Type:=xlFillDefault
        Ligne = Ligne + 1 ' Après écriture on incrémente le numéro de ligne
    End If
Next i
End Sub

 

[ker71]

super, merci beaucoup !

 

[TooFatBoy]

Bonjour,

J'ai cependant le probleme suivant: dans la liste source, je veux sauter les lignes vides, et dans le tableau de restitution je veux passer à la ligne suivante pour garder une ligne vide quand il y a une cellule vide dans la liste source.

Du coup quel est le problème ?
Il suffit, quand la source est vide, de ne pas générer de lien.