VBA

Le
jp
Bonsoir,
j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans
le Thisworkbook.

Private Sub Workbook_Open()
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
cell.Select
End If
Next
End Sub

J'utilse la version 2003. Quelqu'un peu me dire?

Merci
JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Galopin01
Le #5428841
bonsoir,
Workbook ne possède pas de propriété Cell, ni Range ;

Private Sub Workbook_Open()
Sheets("blabla").Activate
For Each o In Sheets("blabla").Range("a26:a150")
If o.Value = Sheets("blabla").Range("a25").Value
o.Select
...
A+


"jp"
Bonsoir,
j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans
le Thisworkbook.

Private Sub Workbook_Open()
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
cell.Select
End If
Next
End Sub

J'utilse la version 2003. Quelqu'un peu me dire?

Merci
JP
Frédéric Sigonneau
Le #5428761
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur
que A25 ne sont pas sélectionnées par cette procédure, mais seulement la
dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode
Select ne permet pas de sélectionner une nouvelle cellule en conservant les
sélections précédentes. C'est possible avec certains objets, des feuilles de
calcul, des graphiques mais pas avec des cellules.
Utilise une autre approche, si c'est bien ça ton objectif :

Private Sub Workbook_Open()
Dim cell As Range, plage As Range
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
If plage Is Nothing Then
Set plage = cell
Else
Set plage = Union(plage, cell)
End If
End If
Next
plage.Select
End Sub

FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr

Bonsoir,
j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans
le Thisworkbook.

Private Sub Workbook_Open()
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
cell.Select
End If
Next
End Sub

J'utilse la version 2003. Quelqu'un peu me dire?

Merci
JP


jp
Le #5428751
Merci à tout les deux. plus d'erreur tout fonctionne.
JP

On 29 mar, 21:10, Frédéric Sigonneau wrote:
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur
que A25 ne sont pas sélectionnées par cette procédure, mais seulemen t la
dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode
Select ne permet pas de sélectionner une nouvelle cellule en conservant les
sélections précédentes. C'est possible avec certains objets, des feu illes de
calcul, des graphiques mais pas avec des cellules.
Utilise une autre approche, si c'est bien ça ton objectif :

Private Sub Workbook_Open()
Dim cell As Range, plage As Range
   For Each cell In Range("a26:a150")
     If cell.Value = Range("a25").Value Then
       If plage Is Nothing Then
         Set plage = cell
       Else
         Set plage = Union(plage, cell)
       End If
     End If
   Next
   plage.Select
End Sub

FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr




Bonsoir,
j'ai une macro qui bug à l'ouverture du fichier. elle est placée dan s
le Thisworkbook.

Private Sub Workbook_Open()
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
cell.Select
End If
Next
End Sub

J'utilse la version 2003. Quelqu'un peu me dire?

Merci
JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme