XL 2013 Macro VBA pour séléctionner une cellule suivant équation

B

Bebere

XLDnaute Barbatruc

• 3 Décembre 2015

• #16

Re : Macro VBA pour séléctionner une cellule suivant équation

Antoine un fichier qui représente le problème et quel excel as-tu

 

Vote positif 0 Vote négatif

A

Antoine85

XLDnaute Nouveau

• 4 Décembre 2015

• #17

Re : Macro VBA pour séléctionner une cellule suivant équation

Il s'agit d'excel 2013. Je mets en PJ le fichier :

 

Pièces jointes

• Nouveau Suivi Lames.xlsm

  46.4 KB · Affichages: 45

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2015

• #18

Re : Macro VBA pour séléctionner une cellule suivant équation

Bonjour Antoine85, Bebere,

Quel est le message d'erreur ? Que contient réellement NumGen1, n en mode pas à pas ?

Sinon joindre un extrait du classeur ?

A+

Edit : désolé je n'avais pas vu les messages de la page 2

 

Dernière édition: 4 Décembre 2015

Vote positif 0 Vote négatif

A

Antoine85

XLDnaute Nouveau

• 4 Décembre 2015

• #19

Re : Macro VBA pour séléctionner une cellule suivant équation

Bonjour Paf,

Je suis revenu à l'utilisation de mon équation en modifiant quelque points.
C'est à chaque fois la ligne Range ("A" & n).Activate qui pose problème.

Après de nombreux essais plusieurs types d'erreurs sont apparus. Je vous mets le dernier programme en cours ainsi que le message d'erreur qui s'affiche :

Private Sub BP1_Click()

Dim NumGen1 As Integer
Dim n As Integer


n = 7 + 35 * (Worksheets("Lames Général").Range("NumGen1").Value - 1)


ThisWorkbook.Worksheets("Lames 1 en 5,4").Activate
Range("A" & n).Activate

End Sub

Message Erreur : " L'indice n'appartient pas à la sélection" ou "La méthode Activate de la classe Range a échoué"

 

Dernière modification par un modérateur: 4 Décembre 2015

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 4 Décembre 2015

• #20

Re : Macro VBA pour séléctionner une cellule suivant équation

re,

j'ai fait plusieurs essais qui fonctionnent, dont:

Code:

n = 7 + 35 * (Range("NumGen1").Value - 1)

With ThisWorkbook.Worksheets("Lames 1 en 5,4")
 .Activate
 .Range("A" & n).Select
End With

il faut bien évidemment que la cellule E5 de la feuille Lames Général ( soit NumGen1) soit renseignée, sinon n est négatif !

edit : ou bien rajouter un test sur la valeur de NumGen1 et interdire si = 0 ( ou n'autoriser que si >0)

A+

 

Dernière édition: 4 Décembre 2015

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 4 Décembre 2015

• #21

Re : Macro VBA pour séléctionner une cellule suivant équation

bonsoir Antoine,Paf
comme suit c'est bon activate et select

Private Sub BP1_Click()
Dim n As Long

n = Feuil2.[NumGen1] - 1
n = 7 + 35 * n

ThisWorkbook.Worksheets("Lames 1 en 5,4").Activate
If n > 0 Then ActiveSheet.Range("A" & n).Activate 'Select

End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

Antoine85

XLDnaute Nouveau

• 7 Décembre 2015

• #22

Re : Macro VBA pour séléctionner une cellule suivant équation

Bonjour,
Le programme fonctionne et je vous en remercie. Je n'aurais jamais pensé au Activesheet devant le Range.
Merci à vous pour le temps consacré !

 

Vote positif 0 Vote négatif