XL 2019 vba

ker71 · 4 Juillet 2022

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 · 4 Juillet 2022

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 :

VB:

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 · 4 Juillet 2022

super, merci beaucoup !

TooFatBoy · 4 Juillet 2022

Bonjour,

ker71 à dit:
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.

XL 2019 vba

ker71

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

ker71

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Discussions similaires