Discussion :

[likemonster]

bonjour, est il possible d'activer une cellule mais sans afficher la feuille?? car mon code ne marche pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Integer, sh As Worksheet
For Each sh In Worksheets
With sh
If UCase(Left(.Name, 3) = "DDV") Then
.Range("AM5").Activate
While ActiveCell.Value <> Empty
LigneActive = ActiveCell.Row
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
Else
....

Si quelqu'un a une idée.... ça bloque à .Range("AM5").Activate

codialement

[Daranc]

en début de code
tu peut mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating=False

(vérifie lesfôtes je suis doué pour)
ceci va normalement supprimer le rafraichissement de l'ecran

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating=True

en fin de code le remettra en place et tu réaffiche ce que tu veux montrer

[ucfoutu]

Bonjour,

la méthode Activate s'applique à une cellule se trouvant à l'intérieur de la sélection en cours. Or, tu n'as rien sélectionné avant...

[likemonster]

D'habitude cela marche sans selectionner.... du coup j'ai rajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("AM5").Select

avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("AM5").Activate

mais cela ne marche pas j'ai toujours une erreur!!

[ucfoutu]

Toujours une erreur, ?
D'accord.
Mais est-ce la même que précédemment ?
Ta feuille n'est toujours pas sélectionnée...

[likemonster]

c'est bien la le problème je penses qu'on ne peu pas activer la cellule si la feuille n'est pas sélectionné!!! Rectifi si je me trompe mais il faut absolument que la feuille soit active pour activer une cellule non??? car moi je travail en with feuille...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i As Integer, sh As Worksheet
For Each sh In Worksheets
With sh
If UCase(Left(.Name, 3) = "DDV") Then

[Pierre Fauconnier]

Bonjour

A quoi te sert-il d'activer la cellule AM5?

Si c'est uniquement pour en récupérer la ligne ==>> c'est 5
que tu peux de suite attribuer à la variable LigneActive.

Il est de loin préférable de se passer d'activer des cellules lors d'un traitement et de travailler avec un objet typé Range

[likemonster]

oui c'est sur mais les cellule au dessus de la ligne 5 ne doivent pas être prise en compte c'est pour ça que j'active à partir de AM5!

[Pierre Fauconnier]

Tu ne réponds pas à ma question.

Si tu ne dois démarrer qu'à la ligne 5, commence à la ligne 5. Il ne te sert à rien de sélectionner AM5 pour pouvoir attribuer 5 à ligne active...

Tu ne donnes pas ce qui se passe dans le Else... donc on doit sortir notre boule de cristal.

Mais je répète qu'il n'est pas besoin (c'est même déconseillé) d'activer une cellule pour travailler avec.
Tu pourrais avoir un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Cellule as range
Set Cellule =range("am5")
ligneactive=5
While cellule.Value <> Empty

Personnellement, je me passerais même de LigneActive pour travailler avec Cellule.Row

Puis, dans ta boucle, modifier Cellule, par exemple en pointant vers la cellule située juste en dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set cellule = cellule(2)

[likemonster]

Voila les modification comme tu me disais, c'est bien ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim Cellule As Range
Set Cellule = .Range("AM5")
While ActiveCell.Value <> Empty
LigneActive = 5
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
Else
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value = Empty And .Range("AL" & LigneActive - 1).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive - 1).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
Else
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value = Empty And .Range("AL" & LigneActive - 1).Value = Empty And .Range("AL" & LigneActive - 2).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive - 2).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
Else
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value = Empty And .Range("AL" & LigneActive - 1).Value = Empty And .Range("AL" & LigneActive - 2).Value = Empty And .Range("AL" & LigneActive - 3).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive - 3).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
Else
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value = Empty And .Range("AL" & LigneActive - 1).Value = Empty And .Range("AL" & LigneActive - 2).Value = Empty And .Range("AL" & LigneActive - 3).Value = Empty And .Range("AL" & LigneActive - 4).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive - 4).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
End If
End If
End If
End If
End If
Set Cellule = Cellule(2)
Wend