Insertion Hexa ds cellule

Re bonjour, car je t'avais déja répondu
11 en hexa =B et 10 en Hexa =A
ta macro fait une boucle en Arr et Arr1 ce dui fait qu'elle écrit 15 en col
H
et ainsi de suite, en Arr1 ATTENTION j'ai mis 10 au lieu de 0 en avant
dernier
qui correspond à ta colonne P
Donc, quand la macro arrive en col P elle met le 10 en Hexa(soit A) au lieu
de 10
Si cela ne na pas, fait toi mieux comprendre
Youky

Private Sub CommandButton1_Click()
Dim Rg As Range, a As Integer
Dim Arr As Variant, x As Variant
Dim Arr1 As Variant

Arr = Array("H", "M", "N", "O", "P", "Q")
Arr1 = Array(15, 2, 1, 0, 10, 2)
If TypeName(Selection) = "Range" Then
Set Rg = Selection
Else
Exit Sub
End If

Application.EnableEvents = False
Application.ScreenUpdating = False
For Each r In Rg.Rows
For Each x In Arr
Cells(r.Row, x) = IIf(x = "P", Hex(Arr1(a)), Arr1(a))
a = a + 1
Next
a = 0
Next
Set Rg = Nothing

End Sub

"cliffburton57" <cliffburton57@discussions.microsoft.com> a écrit dans le
message de news: 3BDBBA59-C837-4AA2-86C5-440043FB72BE@microsoft.com...

Bonjour,
Voila j'ai un probleme consernant la macro

'--------------------------------

Sub test()

Dim Rg As Range, a As Integer
Dim Arr As Variant, x as variant
Dim Arr1 As Variant

Arr = Array("H", "M", "N", "O", "P", "Q")
Arr1 = Array(15, 2, 1, 0, 0, 2)

If TypeName(Selection) = "Range" Then
Set Rg = Selection
Else
Exit Sub
End If

Application.EnableEvents = False
Application.ScreenUpdating = False
For Each r In Rg.Rows
For Each x In Arr

Cells(r.Row, x) = Arr1(a)
a = a + 1
Next
a = 0
Next
Set Rg = Nothing
End Sub
'--------------------------------

Alors il faudrait modifier la macro pour que dans la colonne P je puisse
inscrire la valeur "A" (la valeur 11 en HEXA).La macro est declanche
manuellement par un bouton (deja crée).

Je reste disponible pour toutes informations suplementaires.
Merci d'avance.

Merci beaucoup Youki, Ton aide m'est d'une tres grande utilité
La macro Fontionne parfaitement .

Au revoir et Bonnes fetes de fin d'annés

Re bonjour, car je t'avais déja répondu
11 en hexa =B et 10 en Hexa =A
ta macro fait une boucle en Arr et Arr1 ce dui fait qu'elle écrit 15 en col
H
et ainsi de suite, en Arr1 ATTENTION j'ai mis 10 au lieu de 0 en avant
dernier
qui correspond à ta colonne P
Donc, quand la macro arrive en col P elle met le 10 en Hexa(soit A) au lieu
de 10
Si cela ne na pas, fait toi mieux comprendre
Youky

Private Sub CommandButton1_Click()
Dim Rg As Range, a As Integer
Dim Arr As Variant, x As Variant
Dim Arr1 As Variant

Arr = Array("H", "M", "N", "O", "P", "Q")
Arr1 = Array(15, 2, 1, 0, 10, 2)
If TypeName(Selection) = "Range" Then
Set Rg = Selection
Else
Exit Sub
End If

Application.EnableEvents = False
Application.ScreenUpdating = False
For Each r In Rg.Rows
For Each x In Arr
Cells(r.Row, x) = IIf(x = "P", Hex(Arr1(a)), Arr1(a))
a = a + 1
Next
a = 0
Next
Set Rg = Nothing

End Sub

"cliffburton57" <cliffburton57@discussions.microsoft.com> a écrit dans le
message de news: 3BDBBA59-C837-4AA2-86C5-440043FB72BE@microsoft.com...

Bonjour,
Voila j'ai un probleme consernant la macro

'--------------------------------

Sub test()

Dim Rg As Range, a As Integer
Dim Arr As Variant, x as variant
Dim Arr1 As Variant

Arr = Array("H", "M", "N", "O", "P", "Q")
Arr1 = Array(15, 2, 1, 0, 0, 2)

If TypeName(Selection) = "Range" Then
Set Rg = Selection
Else
Exit Sub
End If

Application.EnableEvents = False
Application.ScreenUpdating = False
For Each r In Rg.Rows
For Each x In Arr

Cells(r.Row, x) = Arr1(a)
a = a + 1
Next
a = 0
Next
Set Rg = Nothing
End Sub
'--------------------------------

Alors il faudrait modifier la macro pour que dans la colonne P je puisse
inscrire la valeur "A" (la valeur 11 en HEXA).La macro est declanche
manuellement par un bouton (deja crée).

Je reste disponible pour toutes informations suplementaires.
Merci d'avance.