Boucle et Colonne

Bonjour,

Je galère vachement pour écrire une procédure qui, en fonction du nombre de colonnes, copie une partie du contenu de chaque cellule dans un nouvel onglet :

Mon code actuel est le suivant (mais la fonction Range() est assez rigide, et la fonction Cells() ne semble pas convenir) :

Code:

---

1 2 3 4 5 6 7 8

Dim Pos, Ligne, Colonne As Integer 'Ligne et Colonne sont déjà définis For j = 2 To Colonne For i = 9 To Ligne 'Doit récupérer la position de " of " dans une cellule contenant des rapports style "333 of 999" Pos = InStr(Worksheets("Dashboard").Cells(j + 4, i), " of ") 'Dans ce cas précis, extrait les 3 premiers caractères de la cellule Range("B" & i - 7) = Left(Worksheets("Dashboard").Range("F" & i), Pos) Next Next

---

Si le nombre de colonnes était toujours le même, j'entrerais un code différent, mais je voudrais pouvoir me décaler d'une colonne à l'autre de manière dynamique.

Merci d'avance pour votre aide,
Phil....

Bonsoir,

habituellement l'on demande au posteur de nous montrer son code, bon toi c'est pas la peine tu nous le montre mais tu nous dis pas ce qu'il doit faire...

une seule remarque
ici :

Code:

---

Dim Pos, Ligne, Colonne As Integer

---

seule Colonne et déclarer en integer , les deux autres variables sont des variants

de plus Colonne est alors initialisé à 0 et Pos et Ligne à "Nothing"

la boucle suivante

Code:

---

FOR i = 2 to Colonne

---

ne s'exécute donc pas vu que Colonne est < à 2...

Comme j'ai mis en commentaire, les variables Ligne et Colonne sont déjà définies dans un code un peu plus haut. On va dire que Ligne = 500 et Colonne = 5

Ce code doit récupérer une partie d'une cellule (toute la partie gauche avant " of ") sur 500 lignes et 5 colonnes du premier onglet du classeur, et copier la valeur dans 500 lignes et 5 colonnes du nouvel onglet créé.

Le problème, c'est que je vois bien comment passé d'une ligne à l'autre avec la commande For i = 1 etc. mais je ne vois pas comment faire pour les colonnes. Avec Range j'arrive à extraire les données, mais sur une seule clolnne prédéfinie à l'avance, et avec Cells je peux me déplacer de colonne en colonne, mais pas sortir de donnée.... D'où mon désaroi... :(

Phil....

Citation:

---

Envoyé par TaleMaker

Comme j'ai mis en commentaire, les variables Ligne et Colonne sont déjà définies dans un code un peu plus haut. On va dire que Ligne = 500 et Colonne = 5....

---

:aie: et donc ton code doit provoquer une errer sur cette ligne Dim ..!

Citation:

---

avec Cells je peux me déplacer de colonne en colonne, mais pas sortir de donnée

---

bien sur que si tu peu, sauf que dans ta ligne en commentaire :

Code:

---

Pos = InStr(Worksheets("Dashboard").Cells(j + 4, i), " of ")

---

tu semble avoir inversé ligne et colonne :
Cells(rwIndex, colIndex) => Cells( LigneIndex, ColonneIndex)

avant de poser le résultat dans ta deuxiéme feuille contrôle bien que pos soit > 0 ...

J'ai inversé les lignes et les colonnes................ 8O

C'est vrai que maintenant ça marche bcp mieux.... Toutes mes confuses pour le dérangement.... :oops:

Merci pour les conseils en tout cas....

Phil....