explication de code VBA

wilfried_42

XLDnaute Barbatruc

• 25 Avril 2007

• #2

Re : explication de code VBA

re:

question idiote, aurais tu des maros, qui t'empeche d'activer la feuille "Fabrication". parce que au vu du code,je ne vois que cette possibilite, une iterruption sur sheet_activate ou autre

encadre ton code avec
application.enableevents = false

code

application.enableevents = true

pour voir

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 25 Avril 2007

• #3

Re : explication de code VBA

Salut Pierrof, Wilfried,

Il faut Activer la feuille et non la sélectionner. Cela lui donne le focus alors qu'une simple sélection ne le fait pas 🙁

Code:

Sheets("Fabrication").Activate

Cela devrait résoudre ton problème.

Bon courage

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 25 Avril 2007

• #4

Re : explication de code VBA

re: bonjour jam

je comprends pas. un select ne donne pas le focus ? quand je fais un select d'une , ca ne m'a jamais mis les renseignements dans une autre ????

affaire à suivre, j'ai besoin d'explication

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 25 Avril 2007

• #5

Re : explication de code VBA

J comprend plus rien j'ai fait un mixe de vos réponse er ça m'efface toujours sur la meme feuille😕 😕
Voici le code que j'ai avant/

'copie tableau tonnage et cubage
Sheets("Données").Select
Range("j139:l170").Select
Range("j138:l170").Copy Destination:=Worksheets("Fabrication").Range("b10")

'effacer lignes vides
Application.EnableEvents = False
Sheets("Fabrication").Activate
For n = Range("B65536").End(xlUp).Row To 12 Step -1
If Range("B" & n) = "" Then Rows(n).Delete
Next n
Application.EnableEvents = True

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 25 Avril 2007

• #6

Re : explication de code VBA

Salut tout le monde, Salut Pierrof,

Tu doit vraiment avoir un gros soucis, car le code comme il est, doit obligatoirement t'effacer les ligne de la feuille "Fabrication" 😕

Pourrais-tu nous mettre ton fichier pour que l'on puisse regarder ?

Sinon tu peux rajouter au code

Code:

Application.EnableEvents = False
Sheets("Fabrication").Activate
For n = Range("B65536").End(xlUp).Row To 12 Step -1
If [COLOR=blue]Sheets("Fabrication").[/COLOR]Range("B" & n) = "" Then [COLOR=blue]Sheets("Fabrication").[/COLOR]Rows(n).Delete
Next n
Application.EnableEvents = True

Mais bon on ne comprends pas ce qui ce passe !?

A+

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 25 Avril 2007

• #7

Re : explication de code VBA

Salut Wilfried,

Ooops tu as raison. J'ai été un peu trop rapide à répondre et j'ai utilisé le terme Focus à mauvais escient. Je pensais à la différence entre la sélection et la cellule active.

Désolé pour le "contresens" 🙂

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 25 Avril 2007

• #8

Re : explication de code VBA

Salut Bruno
ci joint mon fichier
A savoir ce fichier est crée à partir d'une base de données

 

Pièces jointes

• mercredi 25 avril 2007.zip

  41.2 KB · Affichages: 38
• mercredi 25 avril 2007.zip

  41.2 KB · Affichages: 33
• mercredi 25 avril 2007.zip

  41.2 KB · Affichages: 35

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 25 Avril 2007

• #9

Re : explication de code VBA

bonjour le fil
ne pas oublier les points devant range et rows
with Sheets("Fabrication")
For n = .Range("B65536").End(xlUp).Row To 12 Step -1
If .Range("B" & n) = "" Then .Rows(n).Delete
Next n
end with

à bientôt

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 25 Avril 2007

• #10

Re : explication de code VBA

Merci bebere c'était bien ça il me manquait un point devant range
Merci quand meme a Bruno Jam et wilfried.
A plus😉

 

Vote positif 0 Vote négatif