Discussion :

[Ghuron]

Bonjour à vous tous et à vous toutes,

Tout d'abord , je souhaite exécuter une macro seulement dans ma sélection active (qui peut varier en nombre de ligne)

Je souhaite ensuite parcourir chaque ligne de cette plage.

Dans chaque ligne, je veux récupérer la valeur de la cellule de la colonne O et la valeur de la cellule de la colonne P.
J'utiliserai ensuite ces valeurs pour changer celle de la cellule de la colonne B, et créer celle de la cellule de la colonne N.
Mon problème ...? Je ne sais pas comment sélectionner une cellule précise dans ma boucle For each.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub maj_tailles()
 
Dim plage As Range, ligne As Range, cell As Range
Dim taille As Integer, longueur As Integer
 
Set plage = Selection
For Each ligne In plage.Rows
    taille = cell("O").Value
    longueur = cell("P").Value
 
    cell("B") = cell("B").Value & "/" & longueur
    cell("N") = "W" & taille & " L" & longueur
Next
 
End Sub

Voilà l'idée de code que j'avais mais je ne fais du VBA que depuis 1 semaine (en autodidacte pour mon boulot) ^^

Pouvez vous m'aider "OH grands VBAsistes" ?


Ghuron Zhan

[keygen08]

Bonjour
deux ligne avec deux methode, soit utiliser l'objet range, soit l'objet range

Code :

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

1
2
    cells(ligne.row,2 ) = cells(ligne.row,2).Value & "/" & longueur
    range("N" & ligne.row) = "W" & taille & " L" & longueur

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Sur la même base que Keygen :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub maj_tailles()
Dim plage As Range, ligne As Range
Dim taille As Integer, longueur As Integer
 
Set plage = Selection
For Each ligne In plage.Rows
    taille = CInt(Cells(ligne.Row, 15).Value)
    longueur = CInt(Cells(ligne.Row, 16).Value)
    Cells(ligne.Row, 2) = Cells(ligne.Row, 2) & "/" & longueur
    Cells(ligne.Row, 14) = "W" & taille & " L" & longueur
Next
End Sub

[Ghuron]

Bonjour,

Merci à vous deux ! J'avais mal au crâne hier à tourner en rond dans ce langage encore nouveau pour moi.

Passage du post en RESOLU grâce à vous.

PS: la citation de keygen08 est très sympa ! Ctrl-C, Ctrl-V vers mon bloc notes !

Ghuron