Tirer les formules avec boucle et condition excel

Meuh non ! Si tu dois faire appel à cette procédure pour plusieurs colonnes, tu en fais une sub à laquelle tu envoies les paramètres NoColonne, NoPremièreLigne, et ValCherchée
Et, dans la macro qui appelle, tu crées un tableau pour chaque paramètre (c'est le plus simple à remplir) tu places les N° de colonnes, NoPremièreLigne et valCherchée dans tes 3 tableaux et tu fais une boucle sur la dimension de ton tableau

Code:

---

1 2 3 4 5 6

LeTableauColonne = array(4, 7, 8, 9) ' N° des colonnes LeTableauLigne = array(20, 24, 27, 12) ' N° de première ligne de la plage de recherche pour les colonnes du LeTableauColonne LeTableauValeur(0, 5, 7, 8) 'Valeurs cherchées For i = 0 to ubound(LeTableauColonne) LaMacroQuiFaitTout (LeTableauColonne(i), LeTableauLigne(i), LeTableauValeur(i)) Next

---

Et pour ta LaMacroQuiFaitTout tu fais

Code:

---

Sub LaMacroQuiFaitTout(NoColonne, NoPremièreLigne,ValeurCherchée)

---

Essaie ça, ça ne coûte rien et ça peut t'éclairer

Code:

---

1 2 3 4 5 6 7

Sub AppelLaMacroQuifaittout() LaMacroQuifaittout ("T'as compris ?") End Sub   Sub LaMacroQuifaittout(LeMot) MsgBox LeMot End Sub

---

A+

NB - N'oublie pas de supprimer la déclaration de variable NoColonne, NoPremièreLigne,ValeurCherchée et l'affectation de valeurs dans LaMacroQuifaittout
Dans mon exemple, tu ne peux pas modifier la valeur de "LeMot"
A toutes fins utiles et si tu savais pas ;)

ouh la je comprends plus rien...pour une cellule a tirer pour quelque colonnes ça me semble compliquer alors que la personne avec qui je travaille dit que c'est super court et super simple

564 lignes ce n'est pas enorme. Tu peut copier le code dans un fichier texte et attacher le fichier texte à un message sur ce forum. A moins que tu n'es pas le droit de divulguer le code.
Quand au message d'erreur je ne demandais pas le numero mais le commentaire associé, s'il y en a un. Je suppose qu'il doit exister des faqs qui rescence les numeros d'erreurs et explique peut être leurs origines possible.
Bon la ce n'est plus la peine pour le commentaire de l'erreur puisque tu as eu une reponse. Mais pour la prochaine erreur, ce serait bien de le mettre avec ton post. Ce sera plus facile pour nous t'aider.

Bah si cette personne dit que c super court et super simple, elle n'a qu'à le faire, non ? Si c'est si court que ça et si facile que ça, ça lui prendra même pas une minute, non ?

le fichier est trop gros y'a énormément de colonnes je pense pas pouvoir le mettre...pi il est confidentiel surtout

Citation:

---

il me met l'erreur 1004
et j'ai 565 lignes dans mon fichier

---

Avant de faire

Citation:

---

derniereligne=cells(nopremiereligne,35).SpecialCells(xlCellTypelastCell).row

---

As-tu affecté un N° de ligne à nopremiereligne ?
A tout hasard ;)