Activer une cellule

Signaler
Messages postés
40
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
29 octobre 2009
-
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
-
bonsoir, est il possible d'activer une cellule mais sans afficher la feuille?? car mon code ne marche pas:

with sheets ("Macro")
.Range("AM5").Activate
end with

cordialement

3 réponses

Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
4
i = Sheets("Macro").ActiveCell.Column

j = Sheets("Macro").ActiveCell.Row
Sheets("Macro").Range("AM5").Cells(i,j).Select
Messages postés
40
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
29 octobre 2009

re, j'ai essayé ta technique mais ça ne marche pas... j'ai oublié de préciser quelque choz, cette action doit etre effectué sur plusieurs pages ddv comme le code l'indique:

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
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010

essayes plutôt ça:

.Range("AM5").Select

CNTJC