Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel MACRO FIND BOUCLE

MACRO FIND BOUCLE

2 réponses
Avatar
NEWS
BONJOUR

QUELQU'UN PEUR ME RENSEIGNER SUR CE QUI NE VAS PAS

MERCI

SOIT :

MYARRAY TABLEAU DE (3,30) DANS UNE MACRO PUBLIC Recup_Noms

JE VEUX RECUPERER LA VALEUR POUR CHAQUE NOM DE MYARRAY LA VALEUR OFFSET

PUIS LA METTRE DANS LA FEUILLE BASE MAIS CELA NE MARCHE PAS


Set fich = Sheets("FE1")

Call Recup_Noms

For z = 1 To 20


AT = fich.Cells.Find("Myarray(lig_1,2)", , , xlWhole).Offset(z, 0)
Sheets("BASE").Cells(z + 1, 8) = AT


Next
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
JLuc
*Bonjour NEWS*,
Trois petites choses à modifier.
1/ NE CRIE PAS, ON EST PAS SOURD
2/ Revoie l'heure de ton pc
3/ Déclare ton tableau "Myarray" en tête de ton module pour que toutes
les procédures puissent y accéder et modifie :
AT = fich.Cells.Find("Myarray(lig_1,2)", , , xlWhole).Offset(z, 0)
AT = fich.Cells.Find(Myarray(lig_1,2), , , xlWhole).Offset(z, 0)


BONJOUR

QUELQU'UN PEUR ME RENSEIGNER SUR CE QUI NE VAS PAS

MERCI

SOIT :

MYARRAY TABLEAU DE (3,30) DANS UNE MACRO PUBLIC Recup_Noms

JE VEUX RECUPERER LA VALEUR POUR CHAQUE NOM DE MYARRAY LA VALEUR OFFSET

PUIS LA METTRE DANS LA FEUILLE BASE MAIS CELA NE MARCHE PAS


Set fich = Sheets("FE1")

Call Recup_Noms

For z = 1 To 20


AT = fich.Cells.Find("Myarray(lig_1,2)", , , xlWhole).Offset(z, 0)
Sheets("BASE").Cells(z + 1, 8) = AT


Next


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
NEWS
merci mais je ne réussi toujours pas a faire fonctionner
pour les majuscules, la touche maj était enfoncée j'ai tapé c'est tout
pour l'heure ici il est 13 h 15

"JLuc" a écrit dans le message de news:

*Bonjour NEWS*,
Trois petites choses à modifier.
1/ NE CRIE PAS, ON EST PAS SOURD
2/ Revoie l'heure de ton pc
3/ Déclare ton tableau "Myarray" en tête de ton module pour que toutes
les procédures puissent y accéder et modifie :
AT = fich.Cells.Find("Myarray(lig_1,2)", , , xlWhole).Offset(z, 0)
AT = fich.Cells.Find(Myarray(lig_1,2), , , xlWhole).Offset(z, 0)


BONJOUR

QUELQU'UN PEUR ME RENSEIGNER SUR CE QUI NE VAS PAS

MERCI

SOIT :

MYARRAY TABLEAU DE (3,30) DANS UNE MACRO PUBLIC Recup_Noms

JE VEUX RECUPERER LA VALEUR POUR CHAQUE NOM DE MYARRAY LA VALEUR OFFSET

PUIS LA METTRE DANS LA FEUILLE BASE MAIS CELA NE MARCHE PAS


Set fich = Sheets("FE1")

Call Recup_Noms

For z = 1 To 20


AT = fich.Cells.Find("Myarray(lig_1,2)", , , xlWhole).Offset(z, 0)
Sheets("BASE").Cells(z + 1, 8) = AT


Next


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O