Recupérer des données dans excelRésolu

Question

Bonjour, je souhaite &#233;crire un programme avec un switch case suivant ce qu'il y a d'ecrit dans la colonne C d'Excel.
Le probl&#232;me c'est que je ne sais pas r&#233;cup&#233;rer ce qu'il y a dans la colonne c et je ne maitrisse pas encore vb donc je ne sais pas trop ecrire le switch case.

Merci d'avance &#224; ceux qui peuvent m'aider.

cs_jordinette · Accepted Answer

Oki donc voici un morceau de code qui devrais t'aider: dans ta colonne tu a que la valeur REAL ou BOOLEAN? si tu as dautres valeur il y a une petite modif a faire dans le code suivant.

Private Sub CommandButton1_Click() 'sur le click sur le bouton1

Dim ValeurDeLaCellule as String

Application.Workbooks("MonClasseur.xls").Worksheets("feuil1").Cells(2, 3).Select 'selectionne la première cellule de la colonne C avec les valeurs a scruter (supposant que la celulle C1 contient le titre de ta colonne)

    Do While ActiveCell.Text <> "" 'scanne la colonne tant que la cellule n'est pas vide

        j = Split(ActiveCell.Address, "$") 'récupère l'adresse de la cellule active
    
        If ActiveCell.Text = "Real" then
           
'code correspondant à ton appel vers la procédure du REAL

            'selectionné a nouveau la cellule précédement sélectionné pour repartir dans la recherche

            Application.Workbooks("MonClasseur.xls").Worksheets("feuil1").Cells(j(2), j(1)).Select
            ActiveCell.Offset(1, 0).Select 'passe à la cellule suivante
        Else

 'code correspondant à ton appel vers la procédure du BOOLEAN

            'selectionné a nouveau la cellule précédement sélectionné pour repartir dans la recherche

            Application.Workbooks("MonClasseur.xls").Worksheets("feuil1").Cells(j(2), j(1)).Select
            ActiveCell.Offset(1, 0).Select 'passe à la cellule suivante          
            
        End If
    
    Loop


Jordinette

cs_jordinette · Answer

bonjour,
un switch case désolé je ne sais pas ce que c'est.
Sinon si tu veux récupérer une seule case de la colonne C 
valeur = activesheet.cells(1,3).value 'valeur de la case 1 de la colonne C

si tu copier le contenu de la colonne entière et le coller dans un autre Excel

activesheet.Columns("C:C").Select
selection.copy
'te possitionner sur la cellule ou la feuille où tu veux coller la colonne.
activesheet.paste

si tu veux copier les valeurs de la colonne dans une autre application j'ai besoin de plus de détails pour pouvoir t'aider.

Jordinette

tortuegenie · Answer

En fait je veux r&#233;cup&#233;rer l'ensemble des valeurs de la colonne C et par la suite test&#233; leur valeur.
C'est &#224; dire si on trouve le mot "boolean" dans la colonne C je fais cela, si je trouve le mot Real, je fais ceci.
C'est cela que je souhaite faire.
Peux-tu encore m'aider &#224; r&#233;cup&#233;rer toute la colonne C.
Merci

cs_jordinette · Answer

Re, hum donc pour moi tu n'as pas besoin de copier ou de ranger tes valeurs dans une table... tu peux en fait scruté ta colonne cellule par cellule et lorsque le programme passe dans une cellule contenant "real" envoyer vers la procédure à suivre, tu passe à la suivante si c'est "real" a nouveau faire la procédure, la suivante si c'est "boolean" lancer lautre procédure.
c'est bien ce que tu veux faire, si oui je pense pouvoir t'aider.
Jordinette

tortuegenie · Answer

C exactement cela que je veux faire, le probl&#232;me c'est que je ne me fais pas au vb, par rapport au java c'est un peu plus chaud surtout avec excel encore &#224; cot&#233;.

Recupérer des données dans excel

5 réponses

Discussions similaires