Extraction de valeurs variables

[Claude]

Bonjour je Forum, Bonne année à tous,


Voici ma question :
J’ai des valeurs variables dans le tableau A1 :F98 que je veux récupérer dans un autre tableau J1 :O66 à partir d’un intervalle de valeurs donné par la colonne E1:E98
Comment extraire cet intervalle de valeurs qui est toujours le même (de –7 à +7) mais dont le nombre est variable ?
Ci-joint un petit travail à ce sujet.

Avec tous mes remerciements.

Claude

 

[Pyrof]

Re : Extraction de valeurs variables

Bonjour

Voici la macro

Sub dudule()
l1 = 1
l2 = 1
While Cells(l1, 5) <> ""
    If Cells(l1, 5) >= -7 And Cells(l1, 5) <= 7 Then
        For b = 1 To 6
            Cells(l2, b + 9) = Cells(l1, b)
        Next
        l2 = l2 + 1
    End If

    l1 = l1 + 1
Wend
End Sub

 

[Claude]

Re : Extraction de valeurs variables

Bonjour Pyrof,

Merci de ton intervention.
J'ai essayé la macro, elle respecte le nombre de -7 mais n'affiche que 2 valeurs +7, alors qu'il y en a 5 !
Peut être avec une formule ?!

Merci encore

Amicalement. Claude

 

[Pyrof]

Re : Extraction de valeurs variables

Normal, je teste sur -7 à +7
or ta colonne est arrondie
on a bien 7 visible mais si tu clic sur la cellule tu as 7,1...

C'est donc normal

 

[Claude]

Re : Extraction de valeurs variables

Re Pyrof,

Tu as raison sur ce plan là. J'avais pas pensé à ce problème. Ce qui m'interesse c'est de tenir compte dans l'arrondi des valeurs en + ou en - de 7 pour ainsi comptabiliser toutes les valeurs 7.
Merci bien pour ton aide.

Amicalement. Claude

 

[Claude]

Re : Extraction de valeurs variables

Re bonjour le Forum, bonjour Pyrof,

Pour récupérer tous mes –7 et +7 j’ai modifié les limites de –6.99 et +7.49 !

Comme je n’y connais rien en visual basic, comment réécrire la macro pour qu’elle s’effectue à partir des cellules DF3 😀K125 le résultat dans les cellules EK3 :EP80 par exemple.

Merci

Claude

 

[Pyrof]

Re : Extraction de valeurs variables

Bonjour,

Voici la nouvelle macro

Sub dudule()
l1 = 1
l2 = 1
Range(Cells(1, 10), Cells(200, 15)).ClearContents
While Cells(l1, 5) <> ""
    tmp = Int(Cells(l1, 5))
    If tmp >= -7 And tmp <= 7 Then
        For b = 1 To 6
            Cells(l2, b + 9) = Cells(l1, b)
        Next
        Cells(l2, 14) = tmp
        l2 = l2 + 1
    End If

    l1 = l1 + 1
Wend
End Sub

 

[Claude]

Re : Extraction de valeurs variables

Re Pyrof,

Encore merci. J'ai essayé ta nouvelle macro, mais elle commence apparemment en K1 en écrasant des données existantes !
Je me suis peut être mal exprimé !
Les emplacement d'origine étaient A1:F98 et les résulats obtenus en J1:O63

Actuellement le même travail doit s'effectuer en DF3😀K125 et EK3:EP80

Merci

 

[Pyrof]

Re : Extraction de valeurs variables

nouvelle version

Sub dudule()
l1 = 1 ' ligne de départ
l2 = l1
col_test7 = 9 ' numéro de la colonne de test -7 + 7
decalage = 9 ' décalage colonne résultat
While Cells(l1, col_test7) <> ""
    tmp = Int(Cells(l1, col_test7))
    If tmp >= -7 And tmp <= 7 Then
        For b = 1 To 6
            col1 = col_test7 - 5 + b
            col2 = col_test7 - 5 + b + decalage
            Cells(l2, col2) = Cells(l1, col1)
        Next
        Cells(l2, col_test7 + decalage) = tmp
        l2 = l2 + 1
    End If
    l1 = l1 + 1
Wend
End Sub

Il faudra modifeir la ligne de départ (l1), la colonne de test -7 +7 et le nombre de colonne entre original est resultat

 

[Claude]

Re : Extraction de valeurs variables

Re Bonsoir Pyrof

En effectuant les modifications indiqués ça marche très bien.
J'ai encore quelques souçis au niveau des + et des - mais je vais me débrouiller.

Encore merci Pyrof pour ton aide précieuse.

Amicalement. Claude