Forums XLPages

Excel & VBA Forum principal [résolu] Modification de code

Modification de code
#1
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-03-2012 14h36

Bonjour a tous,
et bonjour Myta,

Voila Est ce qu'il serait possible de modifier ce code:

Est ce quSub Reperes()
Dim Cel As Range
Dim Cell As Range

With Sheets("Courses")
  For Each Cell In .Range("C10:C" & .Cells(Rows.Count, "C").End(xlUp).Row)
    If Not IsEmpty(Cell) Then
      With Sheets("Reperes")
        With .Cells
          Set Cel = .Find(Cell.Value, LookIn:=xlValues)
          If Not Cel Is Nothing Then
            With Cell
              .Font.Bold = True
              .Font.ColorIndex = 3
            End With
          End If
        End With
      End With
    End If
  Next Cell
End With

End Sub

pour qu'il recherche dans une colonne spécifique les repérer dans la feuille Reperes par exemple la colonne J de la feuille Reperes
Merci Beaucoup
Samuel
Hors Ligne
 Rapport   Haut 

Re: Modification de code
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 17-03-2012 15h14
Bonjour Samuel59,

Au vu de l'extrait de code fourni, tu peux peut-être le remplacer comme ça :
Sub Reperes()
Dim Cel As Range, Cell As Range
    With Sheets("Courses")
        For Each Cell In .Range("C10:C" & .Cells(.Rows.Count, "C").End(xlUp).Row)
            If Not IsEmpty(Cell) Then
                With Cell     'Columns(10) = Colonne J
                    Set Cel = Sheets("Reperes").Columns(10).Find(.Value, LookIn:=xlValues)
                    If Not Cel Is Nothing Then
                        With .Font
                            .Bold = True
                            .ColorIndex = 3
                        End With
                    End If
                End With
            End If
        Next Cell
    End With
End Sub

Merci à toi de prendre connaissance de cette FAQ pour insérer du code VBA proprement dans tes posts.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Modification de code
#3
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-03-2012 17h14
Citation :
myDearFriend! a écrit : Bonjour Samuel59,

Au vu de l'extrait de code fourni, tu peux peut-être le remplacer comme ça :
Sub Reperes()
Dim Cel As Range, Cell As Range
    With Sheets("Courses")
        For Each Cell In .Range("C10:C" & .Cells(.Rows.Count, "C").End(xlUp).Row)
            If Not IsEmpty(Cell) Then
                With Cell     'Columns(10) = Colonne J
                    Set Cel = Sheets("Reperes").Columns(10).Find(.Value, LookIn:=xlValues)
                    If Not Cel Is Nothing Then
                        With .Font
                            .Bold = True
                            .ColorIndex = 3
                        End With
                    End If
                End With
            End If
        Next Cell
    End With
End Sub

Merci à toi de prendre connaissance de cette FAQ pour insérer du code VBA proprement dans tes posts.

Cordialement,


Bonjour myDearFriend,
Merci beauoup pour cette modification !
et pour l'insertion du code proprement je n'avait méme pas vu ça
donc a l'avenir je ferais comme indiqué!!

Cordialement
Samuel
Hors Ligne
 Rapport   Haut 

Re: Modification de code
#4
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 17-03-2012 17h54
Re,

Si tu penses que tu as bien obtenu la réponse attendue, merci aussi d'appliquer ce qui est inscrit au bas de ma signature...

D'une manière générale, prendre connaissance de la FAQ du site est une bonne idée. 

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Modification de code
#5
Samuel59
Aspirant XLPages

Inscription: 04/03/2012

Messages: 35

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 18-03-2012 11h00
Citation :
myDearFriend! a écrit : Re,

Si tu penses que tu as bien obtenu la réponse attendue, merci aussi d'appliquer ce qui est inscrit au bas de ma signature...

D'une manière générale, prendre connaissance de la FAQ du site est une bonne idée. 

Cordialement,
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes