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
> '--------------------------------
Il faudrait que pour la colonne P la valeur remplacer soit A (hexadecimal).
Je reste disponible pour toutes informations complementaire.
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Salut, si j'ai bien compris, ici cette modif fait qu'en colonne P elle inscrit l'Hexa de la valeur de la colonne A au lieu de Arr(a) Youky
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) = IIf(x = "P", Hex(Cells(r.Row, 1)), Arr1(a)) a = a + 1 Next a = 0 Next Set Rg = Nothing
"cliffburton57" a écrit dans le message de news:
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
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 '--------------------------------
Il faudrait que pour la colonne P la valeur remplacer soit A (hexadecimal).
Je reste disponible pour toutes informations complementaire. Merci d'avance
Salut,
si j'ai bien compris,
ici cette modif fait qu'en colonne P elle inscrit l'Hexa de la valeur de la
colonne A
au lieu de Arr(a)
Youky
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) = IIf(x = "P", Hex(Cells(r.Row, 1)), Arr1(a))
a = a + 1
Next
a = 0
Next
Set Rg = Nothing
"cliffburton57" <cliffburton57@discussions.microsoft.com> a écrit dans le
message de news: 5C0ED932-00CF-4619-9807-1640F0A6E7E6@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
Salut, si j'ai bien compris, ici cette modif fait qu'en colonne P elle inscrit l'Hexa de la valeur de la colonne A au lieu de Arr(a) Youky
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) = IIf(x = "P", Hex(Cells(r.Row, 1)), Arr1(a)) a = a + 1 Next a = 0 Next Set Rg = Nothing
"cliffburton57" a écrit dans le message de news:
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