VBA Petit souci de code

Kiseki · 11 Juillet 2011

Bonjour,

Ce code fonctionne très bien dans la feuille "Prix_de_vente :

Code:

Sub gogo()
    Dim nbrs_lignes As Integer
    
    nbrs_lignes = WorksheetFunction.CountA(Sheets("Prix_de_vente").Range("B:B"))
    
    
    For i = 2 To nbrs_lignes
        If Sheets("Prix_de_vente").Cells(i, 1).Value = Sheets("Ajout").Range("D14").Value Then
            Sheets("Prix_de_vente").Cells(i, 1).Select
            MsgBox "Trouver !"
            Exit Sub
        End If
        Sheets("Prix_de_vente").Cells(i, 1).Select
    Next
    MsgBox "Pas trouver"
End Sub

Mais si je suis dans une autre feuille, une fois qu'il à trouvée (j'ai fait pas à pas) :

"La méthode select de la classe range a échoué."

J'aurai également bien voulu faire :

Code:

dim bd_n as range
set bd_n = Sheets("Prix_de_vente").Cells(i, 1)

Mais cela donne une erreur.

Guest · 11 Juillet 2011

Re : VBA Petit souci de code

Bonjour,

Pour qu'une cellule soit sélectionner par la méthode .SElect, il faut que la feuille soit active
Plusieurs solutions:

Sheets("Prix_de_vente").activate
Cells(i,1).select

Ou

Application.Goto Sheets("Prix_de_vente").Cells(i,1) , True '(ou false, au choix voir l'aide en ligne sur Application.Goto).

N.B: Dim nbrs_lignes As LONG

A+

Kiseki · 11 Juillet 2011

Re : VBA Petit souci de code

Merci ça fonctionne,

Et pour ceci :
J'aurai également bien voulu faire :

Code:

dim bd_n as range
set bd_n = Sheets("Prix_de_vente").Cells(i, 1)

Ce me serait très utile de pouvoir faire :

Code:

bd_n.Cells(i, 1).Select

Pierrot93 · 11 Juillet 2011

Re : VBA Petit souci de code

Bonjour, Kiseki, Hasco🙂

comme dit par Hasco, il faut que la feuille soit activée au préalable avant de selectionner une cellule... A noter qu'en vba il est rarement utile d'effectuer des "select"....

bon après midi
@+

Kiseki · 12 Juillet 2011

Re : VBA Petit souci de code

Bonjour,

Merci,

Le but du select était de pouvoir voir convenablement ce qui ce passait pas à pas.

Je débute en VBA et donc il me faut un peu d'expérience pour pour que mon imagination puisse imager le code.

Guest · 12 Juillet 2011

Re : VBA Petit souci de code

Bonsoir,

Sans plus d'explication et/ou fichier difficile de faire mieux. Mais il me semble qu'il y aurait plus simple avec la méthode:

Sheets("Prix_de_vente").Columns(1).Find (What:=Sheets("Ajout").Range("D14").value, ......)

Voir l'aide en ligne sur la méthode Find.

A+

VBA Petit souci de code

Kiseki

XLDnaute Occasionnel

Guest

Guest

Kiseki

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Kiseki

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

VBA Petit souci de code

Kiseki

XLDnaute Occasionnel

Guest

Guest

Kiseki

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Kiseki

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency