Parcourir colonne et copier valeur

Bonjour.
Essaie :

Sub test()
Dim c As Range, STRRx, STRRx2
For Each c In Selection
If c <> "" Then
STRRx = c
Var = Application.Match(c, Sheets("AFFECTATIONS").Range("S:S"),
0)
If IsNumeric(Var) Then
STRRx2 =
Application.Index(Sheets("AFFECTATIONS").Range("A:A"), Var, 1)
Else
STRRx2 = c
End If
End If
c = STRRx2
Next c
End Sub

Cordialement.
Daniel
"PROTHEAs" <ismael.belaaouad@laposte.net> a écrit dans le message de news:
1166368227.826941.120290@t46g2000cwa.googlegroups.com...
Bonjour à tous,

J'aimerais parcourir (boucle 1) une colonne AN dans une feuille
donnée SYNOVR. J'aimerais que si la valeur d'une cellule est
différente de "" (=non nulle) celle-ci soit récupéré dans une
variable string STRRx.

Et à chaque fois qu'on rencontre une valeur on ouvre une autre
feuille AFFECTATIONS et on parcours (boucle 2) la colonne S à la
recherche de la valeur STRRx.

Si la cellule Sx = STRRx alors on récupère la valeur à la même
ligne mais dans la colonne A que l'on place dans une autre variable
string STRRx2.

Puis on retourne dans la feuille SYNOVR et on place STRRx2 dans la
cellule ou on c'est arrêté dans la boucle 1 et on continu le
parcours.

Merci à ceux ou celles qui ce pencheront sur mon problème.

Merci Daniel pour ta réponse rapide... Je test et je te donne des
nouvelles...
Thanks.

Re,

En fait c'est presque ça sauf qu'il y a un petit souci sur la boucle.
la valeur récupérer dans AFFECTATIONS ne doit etre copier que pour la
cellule correspondante sur laquelle on s'arrête.
Je m'explique :

- Je parcours la colonne AN de SYNOVR, je trouve la valeur "1/1" je la
place dans STRRx puis je lance la boucle dans la colonne S de
AFFECTATIONS à la recherche de "1/1", si je trouve la valeur alors je
me place dans la colonne T à la bonne ligne ( par exemple si "1/1" se
trouve en S5 je vais sur T5 ) et je copie la valeur dans STRRx2 pour la
coller dans SYNOVR colonne AT même ligne que la valeur "1/1".

J'espere que je suis assez clair.

Merci de m'éclaircir sur ce point.

Sub test()
Dim c As Range, STRRx, STRRx2
For Each c In Selection
If c <> "" Then
STRRx = c
Var = Application.Match(c,
Sheets("AFFECTATIONS").Range("S:S"),0)
If IsNumeric(Var) Then
STRRx2 =
Application.Index(Sheets("AFFECTATIONS").Range("A:A"), Var, 1)
Else
STRRx2 = c
End If
End If
c = STRRx2
Next c
End Sub

- Je parcours la colonne AN de SYNOVR, je trouve la valeur "1/1" je la
place dans STRRx puis je lance la boucle dans la colonne S de
AFFECTATIONS à la recherche de "1/1", si je trouve la valeur alors je
me place dans la colonne T à la bonne ligne ( par exemple si "1/1" se
trouve en S5 je vais sur T5 ) et je copie la valeur dans STRRx2 pour la
coller dans SYNOVR colonne AT même ligne que la valeur "1/1".

Ce n'est pas exactement l'énoncé initial !
essaie :

Sub test()
Dim c As Range, STRRx, STRRx2, Plage As Range
Sheets("SYNOVR").Select
Set Plage = Range("AN1", Range("AN65536").End(xlUp))
For Each c In Plage
If c <> "" Then
STRRx = c
Var = Application.Match(c, Sheets("AFFECTATIONS").Range("S:S"),
0)
If IsNumeric(Var) Then
STRRx2 =
Application.Index(Sheets("AFFECTATIONS").Range("T:T"), Var, 1)
c.Offset(0, 7) = STRRx2
End If
End If
Next c
End Sub

Daniel

Merci pour ta réponse.

J'ai essayé avec la nouvelle macro seulement j'obtiens une erreur :

"l'indice n'appartient pas à la sélection!"

Qu'en penses-tu?

merci

Finalement c'est ok.
Je n'ai pas fais attention au nom de ma feuille c'est SYNO VR et non
SYNOVR, merci beaucoup.

J'ai encore une chose maintenant que ça fonctionne je voudrais
parcourir la colonne AU de SYNO VR et mettre son contenu en commentaire
sur dans la colonne AN meme ligne.

Merci infiniement.

Voila :

Sub test1()
Dim c As Range, Plage As Range
Sheets("SYNO VR").Select
Set Plage = Range("AU1", Range("AU65536").End(xlUp))
For Each c In Plage
If c.Value <> "" Then
c.Offset(0, -7).AddComment c.Value
End If
Next c
End Sub

Daniel
"PROTHEAs" <ismael.belaaouad@laposte.net> a écrit dans le message de news:
1166382892.239158.27800@n67g2000cwd.googlegroups.com...
Finalement c'est ok.
Je n'ai pas fais attention au nom de ma feuille c'est SYNO VR et non
SYNOVR, merci beaucoup.

J'ai encore une chose maintenant que ça fonctionne je voudrais
parcourir la colonne AU de SYNO VR et mettre son contenu en commentaire
sur dans la colonne AN meme ligne.

Merci infiniement.

Merci Daniel ça fonctionne impecc!!! Heureusement qu'il y a des gens
comme toi sur ce forum sinon je serais encore en train de chercher.

Est-ce que c'est possible de faire la manipulation dans l'autre sens
concernant les commentaires? Je veux dire par là, si on peut
reparcourir la colonne et supprimer les commentaires.

Merci.

Encore une chose :

Comment vérifier l'existence d'un commentaire. En effet si aprés
avoir créé les commentaire je relance la meme macro j'ai une erreur
qui est dû à la présence d'un commentaire dans la cellule...

Merci d'avance

Sub test1()
Dim c As Range, Plage As Range
Sheets("SYNO VR").Select
Set Plage = Range("AU1", Range("AU65536").End(xlUp))
For Each c In Plage
If c.Value <> "" Then
On Error Resume Next
c.Offset(0, -7).Comment.Delete
On Error GoTo 0
c.Offset(0, -7).AddComment c.Value
End If
Next c
End Sub

Daniel
"PROTHEAs" <ismael.belaaouad@laposte.net> a écrit dans le message de news:
1166386494.124314.261580@80g2000cwy.googlegroups.com...
Encore une chose :

Comment vérifier l'existence d'un commentaire. En effet si aprés
avoir créé les commentaire je relance la meme macro j'ai une erreur
qui est dû à la présence d'un commentaire dans la cellule...

Merci d'avance