ActiveCell

[pierre17du]

Bonjours,

je tente actuellement de reproduire une code que j'ai trouvé.
Dans ce code apparait la ligne

If ActiveCell.Column = 2 Then

je cherche à remplacer la detection (initialement sur la colonne 2) sur une zone nommé déjà défini. Si je met ça rien ne ce passe:

If ActiveCell = "liste" Then

Si qqu pouvais m'indiquer comment correctement utiliser l'ActiveCell avec une zone défini, je vous remerci d'avance.

Cordialement

 

[Pierrot93]

Re : ActiveCell

Bonjour,

regarde ceci, si cela peut t'aider à avancer...

MsgBox IIf(Intersect(ActiveCell, Range("liste")) Is Nothing, "Pas dans la liste", "ok dans la liste")

bonne journée
@+

 

[pierre17du]

Re : ActiveCell

Merci de la réponse, j'ai tenté de métre

If Intersect(ActiveCell, Range("connaissance")) Then

dans mon code , mais ceci ne fonctionne pas,
ce code ( une reprise/copie d'un code récupéré) devais permétre l'ouverture d'une fénétre après un clique sur certaine cellules, cette partie de code se trouve dans le cedo de l'UserForm affichée

Sub copie(nom)
  Set images = Sheets("Standards")
  If Intersect(ActiveCell, Range("connaissance")) Then
  'If ActiveCell = "connaissance" Then
    '-- suppression
    For Each s In ActiveSheet.Shapes
      If s.Type = 13 Then
        If s.TopLeftCell.Address = ActiveCell.Address Then s.Delete
      End If
    Next s
    On Error Resume Next
    images.Shapes(nom).Copy
    If Err = 0 Then
      ActiveSheet.Paste
      Selection.OnAction = "ClicImage"
      Selection.Name = "Image" & ActiveCell.Row
      largeurImage = images.Shapes(nom).Width
      HauteurImage = images.Shapes(nom).Height + 6
      Selection.ShapeRange.Left = ActiveCell.Left + ActiveCell.Width / 2 - largeurImage / 2
      Selection.ShapeRange.Top = ActiveCell.Top + 5
      Rows(Target.Row).RowHeight = HauteurImage + 10
     End If
     ActiveCell.Select
     ActiveCell = nom
   End If
 End Sub

la fénétre s'affiche bien, mais les icones sur la fenétre n'agissent pas. De plus avec

'If ActiveCell = "connaissance" Then

le programme affiche un probléme.

Si tu pouvais m'expliquer

cordialement

 

[Pierrot93]

Re : ActiveCell

Re,

pour tester si la cellule active est dans ta plage nommée, enlève le "not" pourtester le contraire :

If Not Intersect(ActiveCell, Range("liste")) Is Nothing Then

bon après midi
@+

 

[pierre17du]

Re : ActiveCell

Merci, là le programme réagit, mais il bloque peut après et deux soucis apparaissent:

(les zone concernées sont celles en jaune)
- un clique Droit fait bien affiché la fenétre voulu
- lorsque l'on clique sur l'icone choisit, le nom de l'image associée apparait mais pas l'image (1er pb)
- si un texte est déjà présent dans la cellule, la fenétre d'erreur s'ouvre (2éme pb)

j'ai bien besoin de tes lumières.

Cordialement P

 

[Pierrot93]

Re : ActiveCell

Re,

pas sûr qu'il y ait un rapport...

 

[pierre17du]

Re : ActiveCell

Re,
le pb pourrait être où alors?

 

[Pierrot93]

Re : ActiveCell

Re,

aucune idée... vois même pas quel est le code concerné, et pas le temps ni le besoin d'apprendre le fonctionnement de ton fichier... un tout petit fichier représentant UNIQUEMENT le problème posé aurait été préférable...