Modifier un code

maval · 23 Août 2012

Bonjour

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

Code:

 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

Code:

  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 · 23 Août 2012

Re : Modifier un code

Re,

peut être avec ceci,pour la colonne D :

Code:

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

bonne soirée
@+

maval · 23 Août 2012

Re : Modifier un code

Re,

Non je n'ai rien sur mon Label?

@+

Max

vviinncce · 23 Août 2012

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 · 23 Août 2012

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 · 23 Août 2012

Re : Modifier un code

Re,

vviinncce à dit:
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 · 23 Août 2012

Re : Modifier un code

Re,

En faisant comme ceci

Code:

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 · 23 Août 2012

Re : Modifier un code

Re,

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

maval · 23 Août 2012

Re : Modifier un code

Re,

Voici le fichier
@+

vviinncce · 23 Août 2012

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 :

Code:

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 · 23 Août 2012

Re : Modifier un code

Re

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

Code:

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 · 24 Août 2012

Re : Modifier un code

Bonjour,

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

Bonne journée

Maval

laetitia90 · 24 Août 2012

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 · 24 Août 2012

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 · 25 Août 2012

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

Modifier un code

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

vviinncce

XLDnaute Nouveau

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Pièces jointes

vviinncce

XLDnaute Nouveau

maval

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires