Discussion :

[sniper2005]

Bonjour,

Dans le cadre d'une étude statistique, j'ai besoin de modifier les réponses reçu grâce à notre questionnaire afin de pouvoir les traiter sur un logiciel de statistique. Par exemple remplacer les réponses "oui", "non" et "je ne sais pas" par les valeurs "0", "1" et "2". VBA me semble mieux que la solution consistant à faire un "remplacer" manuel pour chaque colonne.

Je ne sais pas si cela est possible mais ce que je cherche à faire, c'est de remplacer les valeurs de toutes les colonnes (correspondants aux réponses des différentes questions) par d'autres valeurs (numériques) afin de pouvoir travailler les données sur un autre logiciel.

Il s'agit donc d'une commande "remplacer" mais sur l'ensemble d'une feuille comportant des valeurs (réponses) différentes, chaque colonne comportant un nombre de réponse limité.

Etant débutant dans ce domaine je ne sais pas s'il faut créer une commande pour chaque colonne ou si une commande existante peut faire cela sans devoir écrire dans le code toutes les réponses possibles pour chaque colonne, par exemple une commande de regroupement remplaçant chaque réponse identique par une même valeur.

Je ne sais pas si cela est claire mais en gros c'est ce qu'il me faut.
Si vous avez des questions n'hésitez pas.
Je remercie par avance ceux qui auront le courage de m'aider.

[78chris]

Bonjour

S'il n'y que 3 cas à remplacer, quel que soit le nombre de feuilles et de cellules, c'est faisable en 3 cherche et remplace : pas sur que l'écriture d'un code VBA soit bien utile...

[sniper2005]

Le problème c'est que pour certaines questions (colonnes) il y a beaucoup plus de 3 réponses possibles, cela va jusqu'à 20 donc c'est super long en manuel, le mieux serait donc une macro.

[Qwazerty]

Salut

Oui c'est possible.
Si le nombre de colonne ou/et le contenu des entêtes sont variables, le mieux est de faire un tableau avec le nom de l'entête, les valeurs possible et les valeurs correspondantes à mettre à la place

exemple:

Nom de l'entête
Oui - 1
Non - 2
Ne sais pas - 3

Ensuite il suffit d'ouvrir le fichier, de chercher chaque entête qui s'y trouve pour chercher le tableau qui correspond et de faire la correspondance avec les réponses données.

Il faudrait connaitre la structure du fichier à modifier, sur quelle ligne se trouve les entêtes par exemple.

++
Qwaz

[78chris]

Re

Si on sélectionnes l'ensemble des onglets (clic sur le nom du 1er, maintien de shift et clic sur le nom du dernier, l'ensemble des cellules (clic dans l'angle en haut à gauche), comme déjà dit il suffit de 3 cherche et remplace en cliquant sur remplacer tout. En gros 1 minute par cas, soit trois en tout de manips manuelles.

Le temps d'écrire mon message, ce serait déjà fait !

[Qwazerty]

Salut

Tout dépend le nombre de fichier à traiter, y'en a bien plusieurs hein?

Sinon en effet une recherche manuelle prendra moins de temps. Pour info il est inutile de sélectionner tous les onglets + cellules, il suffit de choisir "Classeur" dans la fenêtre de recherche (hop 2 mins de gagnées )

Sinon voila un bout de code, les instructions pour le mettre en place sont en commentaire, j'ai supposé qu'il y avait plusieurs onglet. Si il y a en plus plusieurs fichier, il suffit de les ouvrir un à un, il y a déjà pas mal de sujet en ce moment qui tourne autour de ça, avec quelque recherche tu trouveras des informations.

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
Sub ReplacAll()
Dim Sh As Worksheet
Dim TheCell As Range
 
'mettre une feuille en plus dans le classeur avec en colonne A les valeurs à rempalcer et en colonne B les valeurs qui doivent être mises à la place
'La 1ere ligne contient une entête de ces 2 colonnes
'Il faut changer le codename de cette page (dans VBE la propriété (Name) de la feuille - cherche CodeName sur google pour plus d'info), le CodeName doit être "Conv"
 
    'On boucle sur tous les onglets
    For Each Sh In ThisWorkbook.Worksheets
        'On évite la feuille qui contient les convertions
        If Sh.CodeName = "Conv" Then
            'On boucle sur chaque valeur devant être remplacée
            For Each TheCell In Conv.Range(Conv.Range("A2", Conv.Cells(Conv.Rows.Count, "A").End(xlUp)))
                'On remplace
                Sh.Cells.Replace What:=TheCell.Value, Replacement:=TheCell.Offset(0, 1).Value, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False
            Next
        End If
    Next
End Sub

++
Qwaz