[Copier/Coller] Exploitation des valeurs numériques dans un tableur

Répondre
Jacques Leblond
Administrateur
Messages : 6723
Enregistré le : 04 janvier 2010, 20:03
Localisation : France (Yvelines 78)
Contact :

[Copier/Coller] Exploitation des valeurs numériques dans un tableur

Message par Jacques Leblond »

Voici une astuce pour exploiter les données numériques copiées des tableaux de GesFine dans un tableur de type Excel.

Après avoir copié dans une feuille du tableur le contenu du presse papier contenant les données :
  • Sélectionner les champs numériques et utiliser la fonction "Rechercher Remplacer".
  • Se positionner dans le champ "Rechercher" et taper en tenant la touche ALT appuyée, les quatre chiffres 0160 (ALT+0160), puis relâcher, cela insère un caractère espace insécable.
  • Ne rien renseigner dans le champ "Remplacer", et cliquer sur "Remplacer tout".
Cela aura pour effet de supprimer cet espace insécable et donc de considérer les données numériques (comme les montants) comme des nombres et pas comme du texte.

Note : la séquence de touche doit être réalisée avec le pavé numérique du clavier afin de ne pas ajouter la touche MAJ qui permet d'atteindre les chiffres sur les claviers sans pavé numérique.
Pour ceux qui ne dispose pas de pavé numérique, il est possible d'utiliser le clavier visuel de Windows disponible dans Progammes/Accessoire/Accessibilité/Clavier visuel.
Si le pavé numérique n'est pas affiché par défaut, vous pouvez l'activer en cliquant sur la touche "Options" du clavier visuel.

Merci à Patrice83200 pour cette astuce.
Jacques Leblond
Administrateur
Messages : 6723
Enregistré le : 04 janvier 2010, 20:03
Localisation : France (Yvelines 78)
Contact :

Re: [Copier/Coller] Exploitation des valeurs numériques dans un tableur

Message par Jacques Leblond »

En complément, pour le tableur Excel de Microsoft, voici une macro qui permet la mise au format des cellules copiées/collées depuis GesFine et qui peuvent comporter des caractères alphabétiques (espaces insécables, espace des milliers, astérisque, etc..) empêchant la reconnaissance en tant que nombre dans les feuilles de calcul.

Code : Tout sélectionner

Sub ConvertirEnNbre()
    On Error Resume Next
    For Each C In Selection
        If Left(C.Formula, 1) <> "=" Then
            Select Case C.Value
            Case Is <> ""
                Select Case IsNumeric(Replace(Replace(C.Value, ".", ","), "*", ""))
                Case True
                    C.Value = CDbl(Replace(Replace(C.Value, ".", ","), "*", ""))
                End Select
            End Select
        End If
    Next C
End Sub
Sélectionnez une ou plusieurs cellules que vous souhaitez convertir en nombre et appliquez cette macro.

Merci à Patrice83200 pour ce complément.
Répondre