Problème de réception d'une cellule

Version imprimable

Bonjour à tous !

Je souhaite récupérer la valeur d'une cellule récupérée d'un classeur et une feuille spécifique pour la comparer à une chaîne.

Pour ce faire, je l'ai mise dans une boucle For pour permettre de naviguer sur toute une colonne, cependant il me met une erreur pour la réception de la cellule...

Voici mon code :
Code:

1 2 3 4 5 6 7 8 For i = 1 To 100 cellule = Classeur.Sheets(Feuille).Cells(LigneDebut, i) '[L'erreur est ici] If cellule = Chaine Then 'Faire Else 'Faire End If Next i
La variable Feuille est bien un String, tout comme cellule... Et LigneDebut est bien un Integer...

Pourriez vous m'aider ?

Merci ! :)

14/12/2012, 13h58
Guiver

Salut,

Classeur = Le classeur ou tu lances la macro ou un autre ?
Si tu remplace :

Code:

cellule = Classeur.Sheets(Feuille).Cells(LigneDebut, i)

par :

Code:

cellule = Sheets(Feuille).Cells(LigneDebut, i)

Il se passe quoi ?
Quel est l'erreur retourné ?
14/12/2012, 14h08
Drezko
L'erreur renvoyé est :

Erreur d'éxécution '9' :

L'indice n'appartient pas à la sélection

Pour note, classeur a été instancié ainsi :
Code:

1 2 3 4 5 Chemin = GENERATEUR.TextBox1.Value Set Classeur = Workbooks.Open(Chemin) Classeur.Application.DisplayAlerts = False Classeur.Application.Visible = False
Ce code, je ne l'ai pas fait, c'est un collègue qui me l'a passé pour que je le re-travaille, le simplifie.

Merci de ta réponse :)
14/12/2012, 14h15
Guiver

Met ton code complet stp :)

Le problème c'est que c'est des fonctions qui s'apellent ^^ Mais si tu désires quand même :

Fonction qui recherche pour quelle colonne il y a telle chaîne de caractère

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Function RechNumCol(Classeur As Workbook, Feuille As String, Chaine As String, LigneDebut As Integer) As Integer
Dim i As Integer
Dim cellule As String
 
    For i = 1 To 100
        cellule = Sheets(Feuille).Cells(LigneDebut, i) 'Avec ta modification donc
        If cellule = Chaine Then
            RechNumCol = i
            Exit Function
        Else
            RechNumCol = 255
            MsgBox ("La colonne " & Chaine & " est absente de la BDD")
        End If
    Next i
 
End Function

Deuxième fonction (qui appelle la première):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
        Chemin = GENERATEUR.TextBox1.Value
        Set Classeur = Workbooks.Open(Chemin)
        Classeur.Application.DisplayAlerts = False
        Classeur.Application.Visible = False
 
        If ActiveWorkbook.Name <> ThisWorkbook.Name Then
            ActiveWindow.Visible = False
        End If
 
        CompteurInstrum = 0
 
        With GENERATEUR
            ChoixSection = TraitCar(.ComboBox1.Value) 'Récupère le choix en enlevant l'indice mis par une autre fonction
            .ComboBox2.Clear
            .ComboBox3.Clear
            .ComboBox4.Clear
            .ComboBox5.Clear
            .CommandButton2.Enabled = True
        End With
 
        colonneArret = RechNumCol(Classeur, ChoixSection, "Arrêt", 0) 'N° de colonne "Arrêt"
        colonneEtat = RechNumCol(Classeur, ChoixSection, "Etat", 0) 'N° de colonne "Etat"

Si tu arrives à comprendre ^^

Merci :)

14/12/2012, 16h39
Guiver

Je suis pas sur d'avoir compris, je suis novice également.

En gros
- Tu as un premier fichier d’où s’exécute ta macro
- Tu récupère le chemin d'un fichier via une combobox.
- Tu récupère un string via une autre combobox (ou la meme).

Et tu recherche la colonne où cette string apparait dans le fichier que tu viens d'ouvrir.

C'est ca ?
Si cette String est présente, elle ne peut l'être qu'une fois ?

heu......

bonjour

excel VBA a des fonctions natives pour ce genre de recherches

un exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function RechNumCol(Feuille As Variant, Chaine As String, LigneDebut As Long)
With Sheets(Feuille).Range("a" & LigneDebut & ":cv" & LigneDebut)
    Set c = .Find(Chaine, LookIn:=xlValues)
    If Not c Is Nothing Then
      RechNumCol = c.Column
   else 
 RechNumCol ="Pas d'occurence"
 
 End If
End With
 
End Function
Sub texte_recherche()
'on va rechercher dans la feuille 1 la valeur "toto" en ligne 4 de la colonne "A" a "CV"
MsgBox RechNumCol(1, "toto", 4)
End Sub

au plaisir

17/12/2012, 08h21
Drezko
Il me met une erreur (avec ton code) ici :
Code:

1 2 With Sheets(Feuille).Range("a" & LigneDebut & ":cv" & LigneDebut)
Soit, si j'ai bien compris, à l'endroit où il recherche la ligne et la colonne... Exactement comme dans mon premier code !

Pourrait-il s'agir d'un problème avec la BDD ou Excel ? (Au début l'application a été développée sous Excel 2003 et là je suis sous Excel 2007, mais j'ai changé les librairies déjà)

Merci :)
17/12/2012, 14h56
AVSInfoGest

Citation:

Envoyé par Drezko

L'erreur renvoyé est :

Erreur d'éxécution '9' :

L'indice n'appartient pas à la sélection

Bonjour,

A mon avis, la variable Feuille n'a pas pour valeur le nom d'une feuille du classeur.
Insère "Debug.print Feuille" avant l'instruction en erreur pour voir sa valeur.
17/12/2012, 15h52
patricktoulon

re

bonjour
l'exemple que je t'ai donnée ne prend pas en charge le nom du classeur
c'était un exemple générique a toi d'adapter a ton besoin et ajouter un argument a ta fonction

au plaisir
18/12/2012, 08h57
Drezko

Citation:

Envoyé par AVSInfoGest

Bonjour,

A mon avis, la variable Feuille n'a pas pour valeur le nom d'une feuille du classeur.
Insère "Debug.print Feuille" avant l'instruction en erreur pour voir sa valeur.

J'ai déjà vérifier les valeurs en laissant la souris dessus, donc de ce côté là c'est bon...

Citation:

Envoyé par patricktoulon

bonjour
l'exemple que je t'ai donnée ne prend pas en charge le nom du classeur
c'était un exemple générique a toi d'adapter a ton besoin et ajouter un argument a ta fonction

au plaisir

Même en adaptant de plusieurs façons différentes, il me met l'erreur exactement au même endroit :/
18/12/2012, 10h11
Kaëléphine
Bonjour,

j'ai noté une erreur ici :
Code:

1 2 colonneArret = RechNumCol(Classeur, ChoixSection, "Arrêt", 0) 'N° de colonne "Arrêt" colonneEtat = RechNumCol(Classeur, ChoixSection, "Etat", 0) 'N° de colonne "Etat"
tu envoie la ligne '0' à ta fonction donc déjà ça peux pas marcher la ligne 0 n'existe pas avec 'Cells'

ensuite remet la chaine complète:

Code:

cellule = Classeur.Sheets(Feuille).Cells(LigneDebut, i)

car pour ce que j'ai compris le "classeur" est ouvert en invisible donc ce n'est pas celui actif.

Pour faire simple remet ton ancien code et change les appels de fonctions :
Code:

1 2 colonneArret = RechNumCol(Classeur, ChoixSection, "Arrêt", 0) colonneEtat = RechNumCol(Classeur, ChoixSection, "Etat", 0)
par :
Code:

1 2 colonneArret = RechNumCol(Classeur, ChoixSection, "Arrêt", 1) colonneEtat = RechNumCol(Classeur, ChoixSection, "Etat", 1)
C'est un exemple il faut que tu mettes le numéro de ligne ou tu souhaite chercher "Arrêt" ou "Etat".;)
et dis nous si tu as toujours ton erreur. :(

Tu nous as dis que 'ChoixSection' est un String mais tu as vérifié qu'il contient bien la désignation d'une feuille ?
18/12/2012, 11h58
Drezko

[Merci à tous pour vos réponses :) ]

Toutes les paramètres de la fonction sont bien instanciés mais il faut bien laisser le paramètre 0 car c'est un titre spécifique, sinon il m'affiche " 'Arrêt' n'a pas été trouvé dans la BDD"...
18/12/2012, 13h37
patricktoulon

re

bonjour dreko

non!!! ton "0" n'a rien a faire dans l'appel a la fonction car 0 c'est le numéro de ligne que tu veux scruter a fin de trouver ta chaîne de caractère donc au minimum c'est "1"
et la fonction que je t'ai posté je l'ai testé et fonctionne parfaitement

au plaisir
18/12/2012, 15h11
Drezko

A 1, il ne trouve pas la colonne Arrêt... C'est peut être une erreur dans le code qui suit, pourtant, sous Excel 2003 ça marchait...

Bon ben je crois que le sujet est clos ^^

Merci à tous pour vos réponses !