Modifier un code

[maval]

Bonjour

J'ai un petit souci avec mon code ci-dessous

 Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
With ActiveSheet
    If X < 10 Or X > Image2.Width - 10 Or Y < 10 Or Y > Image2.Height - 10 Then
         ActiveSheet.Shapes("Basse-Normandie").Fill.ForeColor.RGB = RGB(255, 255, 255)    'Couleur de fond blanc
         
         ActiveSheet.Shapes("Label5").Fill.ForeColor.RGB = RGB(255, 255, 0)    'Couleur de fond jaune
         ActiveSheet.Shapes("Label5").Visible = False
        
                    ActiveSheet.Shapes("Label2").Fill.ForeColor.RGB = RGB(255, 255, 0)    'Couleur de fond jaune
                    ActiveSheet.Shapes("Label2").Visible = False
        
    Else
    
                    ActiveSheet.Shapes("Label2").Visible = True
    
        With ActiveSheet.Shapes("Label5")
            .Visible = True
            .TextFrame2.TextRange.Characters.Text = f("Basse-Normandie")
        End With
        ActiveSheet.Shapes("Basse-Normandie").Fill.ForeColor.RGB = RGB(0, 255, 0)    'Couleur de fond vert
        

    End If
End With
End Sub
 

 
Private Function f(ByVal Str As String) As String
Dim c As Range
 
If Str <> "" Then
    Set c = Worksheets("Donnée").Range("C:C").Find(Str, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        f = c.Offset(1, 0).Value                       
        f = c.Offset(1, 1).Value
        f = c.Offset(1, 2).Value
        Set c = Nothing
    End If
End If
End Function

Au niveau

  f = c.Offset(1, 0).Value                     
            f = c.Offset(1, 1).Value
            f = c.Offset(1, 2).Value

Je n'arrive pas a rechercher les données dans les colonnes a droite de la colonne "C"

Je vous remercie d'avance

Maval

 

[laetitia90]

Re : Modifier un code

rebonjours tous
essai comme cela?? pas trop simplifie mais bon!!!

 

[maval]

Re : Modifier un code

Bonjour Lætitia,

Je trouve cela nickel maintenant reste a moi d'ajouter les autres régions.

Je te souhaite un bon WE et te remercie beaucoup

@+
Max

 

[laetitia90]

Re : Modifier un code

re tous
question bête pourquoi tu passe pas par une class????

 

[maval]

Re : Modifier un code

Re,

Je ne te demande pas de passer par une class???

@+
Max

 

[maval]

Re : Modifier un code

Laetitia bonjour,

si je passe par une classe est-il possible d'ajouter des chapes sans ajouter du intempestif?

Merci d'avance

Cordialement

Max

 

[laetitia90]

Re : Modifier un code

re ,
que veus tu dire par intempestif?
le but d'une classe c'est pour simplifier le code dans ton cas plus de 400 lignes de code bien sur on peut pas faire de classe sur des shapes par contre sur des images pas de pb...on peut "ruser"
regarde bien l'exemple dans module de classe tu as seulement a rajouter les shapes donc une 20ten de lignes
par contre pour chaque modif tu es oblige se relancer la macro Initialisation je l'es mis dans open ouverture fichier ect egalement dans activate sheets donc tu changes de feuille cela relance la macro tu moussemove sur user le ferme ect.. pas mis le label jaune mets facile a faire ..on en met qu'un on utilise left & top plus simple

 

[maval]

Re : Modifier un code

Bonsoir Lætitia



Je te remercie de ton aide et souhaite une bonne soirée

@+
Max

 

[Pierrot93]

Re : Modifier un code

Re,
Bonjour Laetitia
voir aussi ici :
[XL-2007] Info sur Label - Page 2 - Forum des professionnels en informatique
bonne journée.
@+

 

[laetitia90]

Re : Modifier un code

bonjour l'ami Pierrot
bravo pour ta vigilance

maval je joue plus