Fonction for each & activecell

Bonjour

J'ai recupéré un bout de code que je n'arrive plus a faire fonctionné. impossible de retrouver ce bout de code sur le net :(

Mon probleme est le suivant, j'ai dans la colonne A des mots.
Je souhaite faire pour tous les mots de la colonne A fair une modification et reporter le résultat dans la colonne B en phase de ce mot

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub foreach()   Range("A2").Select Range(Selection, Selection.End(xlDown)).Select   For Each chaine In Selection   'Garder la chaine de charactere a gauche de ' -' chaine = Left(chaine, InStr(2, chaine, " -")) chaine = ActiveCell.Offset(0, 1) Next chaine     End Sub

---

Avec ce bout de code je reste toujours sur la premiere ligne, je suis entrain de m'y agacer depuis environs 2 heures :-((


Merci d'avance pour votre aide
jerome

Bonjour,

les Select ralentissent considérable les procédures
les activecell sont à éviter autant que possible

ton cas en est l'illustre exemple :
- tu sélectionnes une cellule
- tu sélectionnes la plage partant de cette cellule (jusqu'en bas)
- tu boucles sur ta sélection (qui est une plage de plusieurs cellules)
==> dans ta boucle, Activecell sera TOUJOURS la première cellule de ta plage de cellules

voici une autre approche commentée

si tu ne comprend pas la fonction Split, je te laisse consulter l'aide :f1: à ce sujet


Regarde si ça correspond à ton besoin, et s'il faut adapter des choses

Attention : je suis parti du principe que la cellule A1 est remplie !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub foreach() Dim Tablo() ' transfert de la colonne A dans un tableau (à partir de la ligne 2) Tablo = Cells(2, 1).Resize(UsedRange.Rows.Count - 1, 1).Value ' boucle sur le tableau For i = LBound(Tablo) To UBound(Tablo) ' si la cellule contient au moins un "-" If UBound(Split(Tablo(i, 1), "-")) > 0 Then ' on ne garde que ce qui est à gauche du premier "-" Tablo(i, 1) = Split(Tablo(i, 1), "-")(0) End If Next i ' restitution des valeurs en colonne B Cells(2, 2).Resize(UBound(Tablo), 1).Value = Tablo End Sub

---

Bonjour

Merci pour ton retour/conseil,
je viens de l'essayer mais arriver à la 3eme ligne
Table =cell (2,1...
j'ai un "run time error 424 - object required"

Sinon avec mon bout de code,
est ce que tu saurais rectifier le code pour qu il descende à chaque next la selection de la cellule?

Encore merci
jerome

Bonjour,

je ne veux pas rafistoler ta procédure mal construite et pas optimisée.


je n'ai aucun problème en utilisant le code que je t'ai fourni, et à aucun moment dans mon code je n'ai le mot "Table" et le mot "cell"
peux-tu me montrer le code tel que tu l'as lancé, il semblerait que tu ai modifié des choses ?

Ps : j'ai oublié de te dire de rajouter la feuille où ça se passe ... là c'est sur la feuille active

Bonjour.

Rafistoler

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub foreach()   Range("A2").Select Range(Selection, Selection.End(xlDown)).Select   For Each chaine In Selection   'Garder la chaine de charactere a gauche de ' -'   chaine.Offset(0, 1) = Left(chaine, InStr(2, chaine, " -")) Next chaine     End Sub

---

Hi

j'ai rafistolé ma procédure :), voici ce que ca donne:

Avant macro
Match / Equipe domicile
Bourg Peronnas - Creteil
Paris SG - Creteil
*Dijon - Niort
*Evian Thonon - Clermont *
Laval - Nancy

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub fore() Dim ChaineR As Range Dim Rng As Range Dim DerligneCM As Long   Range("A2").Select Range(Selection, Selection.End(xlDown)).Select DerligneCM = [A11000].End(xlUp).Row Set Rng = Range("A2:A" & DerligneCM)   For Each ChaineR In Rng.Cells Chaine = Right(ChaineR, Len(ChaineR) - 1) Chaine = Left(Chaine, InStr(2, Chaine, " -") - 1) ChaineR.Offset(0, 1) = Chaine Next ChaineR End Sub

---

Apres macro
Match / Equipe domicile
Bourg Peronnas - Creteil Bourg Peronnas
Paris SG - Creteil Paris SG
*Dijon - Niort Dijon
*Evian Thonon - Clermont Evian Thonon
*Laval - Nancy Laval


Concernant ton code, j'ai fait des erreurs de frappe pour stipuler ou ca bloque chez moi -desole-, la ligne qui plante est la suivante:
" Tablo = Cells(2, 1).Resize(UsedRange.Rows.Count - 1, 1).Value"

Je vais essayer de redemarrer excel :-s.

Dernière questions pour dormir moins bete ce soir, tu me dis d'éviter le select.
Que me propose-tu pour selectionner la plage de cellule d'un colonne A ou se trouve des valeurs de la ligne 1 a 9.
En gros pour éviter le select dans ce code:

Code:

---

1 2 3 4

Range("A2").Select Range(Selection, Selection.End(xlDown)).Select DerligneCM = [A11000].End(xlUp).Row Set Rng = Range("A2:A" & DerligneCM)

---

Encore merci pour ton aide
Jerome

Bonjour,
Personnellement je suis allergique aux selects!

Code:

---

1 2 3 4 5 6

Sub foreach() For Each chaine In Range(Range("A2"), Range("A2").End(xlDown)) 'Garder la chaine de charactere a gauche de ' -' chaine.Offset(0, 1) = Left(chaine, InStr(2, chaine, " -")) Next chaine End Sub

---

Super merci beaucoup !!!
:D