Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Adresse "Calculée"

Adresse "Calculée"

2 réponses
Avatar
sbranchu
Bonjour =E0 toutes et =E0 tous,
J'ai des onglets qui s'appellent Site N=B001 ... Site N=B00x
Je d=E9sire lors d'une boucle aller chercher des informations sur les
feuilles :

' Recopiage adresse des sites assur=E9s

AdressesSites =3D "'- "

For cpt =3D 1 To NbreSite()

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

AdressesSites =3D AdressesSites & Range(AdresseCell).Value


Next cpt

Je ne sais pas o=F9 est mon erreur....

Quelqu'un peut m'aider ?

Merci,

SB
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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, "") & 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


Avatar
sbranchu
Ca marche !
Merci beaucoup



On 11 mar, 13:58, billy bob wrote:
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 -