Une macro qui ne fonctionne qu'avec 32 lignes et pas plus ??? [Résolu]

Signaler
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020
-
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020
-
Bonjour,
on m'a envoyé une macro pour lier les cellules d'une feuille "Index" avec la même cellule de plusieurs feuilles clients.
Elle marche parfaitement jusqu'à 32 clients, et après NON
J'ai les 2 tableaux, l'un avec 32 clients, l'autre avec 33, et ça fonctionne avec le premier, ça bug avec le 2ème ?? alors qu'ils sont identiques, si ce n'est le nombre de clients.

Je ne sais pas comment vous faire parvenir ces 2 tableaux.
merci
la macro utilisée :
Option Explicit
Sub test()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Dim ligne As Integer 'feuille INDEX
Dim i As Integer
ligne = 3
i = 3
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Index" And Ws.Name <> "Model" And Ws.Name <> "Listes" Then
    Sheets("INDEX").Range("D" & ligne).FormulaR1C1 = "=" & Ws.Name & "!R[" & i & "]C[9]"
    
   
   ligne = ligne + 1
   i = i - 1
    End If
Next Ws
End Sub




Configuration: Macintosh / Safari 13.1.2

5 réponses

Messages postés
15349
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2020
1 361
Bonjour,

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020

Merci !
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020

J'enlève les données sensibles et j'envoie ces 2 tableaux !
Messages postés
6925
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 septembre 2020
549
Messages postés
29
Date d'inscription
mercredi 5 août 2020
Statut
Membre
Dernière intervention
4 septembre 2020

Merci