Boucle et Colonne

**TaleMaker** · 26/09/2008, 19h35

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

**JackOuYA** · 26/09/2008, 22h27

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

FOR i = 2 to Colonne

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

**TaleMaker** · 27/09/2008, 02h00

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....

**JackOuYA** · 27/09/2008, 08h36

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....

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...