Discussion :

[bmeda72]

J'ai écris un code pour copier des valeurs dans une plage mais il copie en double ou triple les valeurs. Je voudrais que la valeur copier soit sous le nom de personne désignée.

Voici le code. J'ai aussi joint la Toto qui contient la plage.

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
17
18
19
20
21
22
23
24
Sub Selection_valeur_plage()
    Dim coef As Variant
 
    NCol = Worksheets("feuil1").Range("B1:J1").Columns.Count
    NR = Worksheets("feuil1").Range("B4:B8").Rows.Count
    y = 4
    x = 0
    j = 1
 
    For x = 2 To NCol + 6
        For y = 4 To NR + 3
            coef = Cells(y, x).Value
            If coef <> "0" Then
                If coef <> "" Then
                coef = Cells(y, x).Value
                nom = Cells(1, x).Value
                Cells(1, NCol + 2 + j).Value = nom
                Cells(y, NCol + 2 + j).Value = coef
                j = j + 1
                End If
            End If
        Next
    Next
End Sub

[DeaD78]

Suffisait de demander

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
17
18
19
20
21
Sub Selection_valeur_plage()
    Dim coef As Variant
 
    NCol = Worksheets("feuil1").Range("B1:J1").Columns.Count
    NR = Worksheets("feuil1").Range("B4:B8").Rows.Count
    y = 4
    x = 0
    j = 1
 
    For x = 2 To NCol + 1
        For y = 4 To NR + 4
            coef = Cells(y, x).Value
            nom = Cells(1, x).Value
            If coef <> "0" And coef <> "" Then
                Cells(y, NCol + 2 + j).Value = coef
            End If
        Next
        Cells(1, NCol + 2 + j).Value = nom
        j = j + 1
    Next
End Sub

Je viens d'essayer et ça marche ! Il suffisait de faire passer ton j à j+1 à chaque fois que tu changeais de colonne. Tu le faisais à chaque saut de ligne aussi. De même, tu peux écrire le "nom" seulement quand tu changes de colonne vu qu'il reste le même.

Au plaisir

[ouskel'n'or]

Et en simplifiant ?

Code :

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

1
2
3
4
5
Dim Plage As Range, cell as range
    Set Plage = ActiveSheet.UsedRange.SpecialCells(xlTextValues)
    For Each Cell In Plage
        MsgBox Cell.Value
    Next

On peut utiliser Union pour obtenir la plage ses cellules contenant des valeurs et des textes

Edit
Je te le mets car l'aide n'est pas très explicite là-dessus

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim Plage As Range, cell as range
    Set Plage = Union(ActiveSheet.UsedRange.SpecialCells(xlTextValues), _
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlNumbers))
    For Each Cell In Plage
        MsgBox Cell.Value
    Next
End Sub

[bmeda72]

Merci!
Ça marche maintenant.