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

 

[Pierrot93]

Re : Modifier un code

Re,

peut être avec ceci,pour la colonne D :

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

bonne soirée
@+

 

[maval]

Re : Modifier un code

Re,

Non je n'ai rien sur mon Label?

@+

Max

 

[vviinncce]

Re : Modifier un code

Bonjour,

Je ne comprends pas ien pourquoi tu as trois lignes :
f = c.Offset(1, 0).Value
f = c.Offset(1, 1).Value
f = c.Offset(1, 2).Value
Ta fonction va juste te retourner c.offset(1,2).value a priori, soit deux colonnes à droite de la colonne C et une ligne en dessous...

 

[maval]

Re : Modifier un code

Bonjour vviinncce,

Je ne comprends pas ien pourquoi tu as trois lignes :

Je doit rechercher sur plusieurs colonnes je m'explique:

Je doit envoyer les données des colonne "C,D,E" vers un label qui se trouve sur la feuil1

@+
Max

 

[Pierrot93]

Re : Modifier un code

Re,

Bonjour,

Je ne comprends pas ien pourquoi tu as trois lignes :
f = c.Offset(1, 0).Value
f = c.Offset(1, 1).Value
f = c.Offset(1, 2).Value
Ta fonction va juste te retourner c.offset(1,2).value a priori, soit deux colonnes à droite de la colonne C et une ligne en dessous...

oui, c'est pas faux....

vérifie peut être que la valeur cherchée a bien été trouvée....

 

[maval]

Re : Modifier un code

Re,

En faisant comme ceci

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

Je n'est que la troisième colonne
@+

 

[Pierrot93]

Re : Modifier un code

Re,

comprends pas.... Place en pièce jointe un tout petit fichier représentant uniquement le problème posé...

 

[maval]

Re : Modifier un code

Re,

Voici le fichier
@+

 

[vviinncce]

Re : Modifier un code

Pour répondre au problème que tu as:
ta fonction f(Str) te renvoie uniquement Caen, or si j'ai bien compris, tu souhaiterais voir Calvados, 14 et Caen ? (et j'imagine pareil pour Manche et Orne dans un second temps...)

C'est lié au fait que ta fonction f te retourne uniquement son dernier résultat, et non les trois valeurs.
change ta fonction f par ceci :

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 & ", " &  c.Offset(1, 1).Value & ", " & c.Offset(1, 2).Value
        
        Set c = Nothing
    End If
End If
End Function

Bon courage pour la suite, tu dois maintenant faire une boucle pour balayer l'intérieur de tes régions...

A+,

Vincent

 

[maval]

Re : Modifier un code

Re

Voila je suis débrouiller comme j'ai peut et j'ai fait ceci.

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                   'ici pour l'exemple on prend l'information juste au dessous à adapter
        f = f & "          " & "        " & c.Offset(1, 1).Value
        f = f & "          " & "        " & c.Offset(1, 2).Value
        f = f & "          " & "                  " & c.Offset(1, 3).Value
        f = f & vbCrLf & c.Offset(2, 0).Value
        f = f & "           " & "        " & c.Offset(2, 1).Value
        f = f & "            " & "      " & c.Offset(2, 2).Value
        f = f & "          " & "             " & c.Offset(2, 3).Value
        f = f & vbCrLf & c.Offset(3, 0).Value
        f = f & "             " & "           " & c.Offset(3, 1).Value
        f = f & "            " & "      " & c.Offset(3, 2).Value
        f = f & "          " & "             " & c.Offset(3, 3).Value
        Set c = Nothing
    End If
End If
End Function

Si quelqu'un a une solution pour centrer les colonnes je suis preneur

Bonne soirée

Max

 

[maval]

Re : Modifier un code

Bonjour,

Je suis a la recherche pour centrer les colonnes dans un label?

Bonne journée

Maval

 

[laetitia90]

Re : Modifier un code

bonjour maval ,pierrot
peut etre avec un user dans un label jamais le meme nb.. caracteres donc impossible!! pour moi
arrete de muliplier les posts pour le meme sujet

 

[maval]

Re : Modifier un code

Bonjour Lætitia,

Je te remercie nickel ton code.

Je te souhaite une bonne fin d’après midi

Max

 

[maval]

Re : Modifier un code

Bonjour,

Suite au modification que Lætitia a fait et que je salut et remercie au passage de son talent Je ne comprend pas pourquoi que je n'arrive pas a supprimer le label5 qui me serre a rien?
Ni physiquement ni dans le code

Bonne journée

Cordialement

Maval