Adresse "Calculée"

Le
sbranchu
Bonjour à toutes et à tous,
J'ai des onglets qui s'appellent Site N°01 Site N°0x
Je désire lors d'une boucle aller chercher des informations sur les
feuilles :

' Recopiage adresse des sites assurés

AdressesSites = "'- "

For cpt = 1 To NbreSite()

AdresseCell = "''Site N°" & IIf(cpt < 10, 0, "") & cpt & "'!
B5"

AdressesSites = AdressesSites & Range(AdresseCell).Value


Next cpt

Je ne sais pas où est mon erreur.

Quelqu'un peut m'aider ?

Merci,

SB
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
billy bob
Le #5188311
Bonjour,

sans avoir eu le temps de tester je pense que cela devrait mieux
marcher :

AdressesSites = "'- "

For cpt = 1 To NbreSite()

AdresseCell = "Site N°" & IIf(cpt < 10, 0, "") & cpt

AdressesSites = AdressesSites &
Worksheets(AdresseCell).Range("B5").Value

Next cpt

Billy Bib

On 11 mar, 10:26, wrote:
Bonjour à toutes et à tous,
J'ai des onglets qui s'appellent Site N°01 ... Site N°0x
Je désire lors d'une boucle aller chercher des informations sur les
feuilles :

' Recopiage adresse des sites assurés

    AdressesSites = "'- "

    For cpt = 1 To NbreSite()

        AdresseCell = "''Site N°" & IIf(cpt < 10, 0, "") & cpt & "'!
B5"

        AdressesSites = AdressesSites & Range(AdresseCell).Value

    Next cpt

Je ne sais pas où est mon erreur....

Quelqu'un peut m'aider ?

Merci,

SB


sbranchu
Le #5188281
Ca marche !
Merci beaucoup



On 11 mar, 13:58, billy bob
Bonjour,

sans avoir eu le temps de tester je pense que cela devrait mieux
marcher :

AdressesSites = "'- "

     For cpt = 1 To NbreSite()

         AdresseCell = "Site N°" & IIf(cpt < 10, 0, "") & cp t

         AdressesSites = AdressesSites &
Worksheets(AdresseCell).Range("B5").Value

     Next cpt

Billy Bib

On 11 mar, 10:26, wrote:



Bonjour à toutes et à tous,
J'ai des onglets qui s'appellent Site N°01 ... Site N°0x
Je désire lors d'une boucle aller chercher des informations sur les
feuilles :

' Recopiage adresse des sites assurés

    AdressesSites = "'- "

    For cpt = 1 To NbreSite()

        AdresseCell = "''Site N°" & IIf(cpt < 10, 0, "") & c pt & "'!
B5"

        AdressesSites = AdressesSites & Range(AdresseCell).Val ue

    Next cpt

Je ne sais pas où est mon erreur....

Quelqu'un peut m'aider ?

Merci,

SB- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme