problème VBA

K

kjin

XLDnaute Barbatruc

• 4 Janvier 2011

• #2

Re : problème VBA

bonjour et bienvenue,
Et cette macro dit quoi ?
A+
kjin

 

Vote positif 0 Vote négatif

J

Jer

Guest

• 4 Janvier 2011

• #3

Re : problème VBA

Sub Macro1()
'
' Macro1 Macro
'

'
If c6 = "P31003" Then
Sheets("N-1").Select
Range("P6").Select

ElseIf c6 = "P31004" Then
Sheets("N-1").Select
Range("P8").Select

ElseIf c6 = "P31005" Then
Sheets("N-1").Select
Range("P9").Select

End If

End Sub

Alors je n'ai pas d'erreur apparente mais lorsque je l'exécute, rien ne se passe....

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Janvier 2011

• #4

Re : problème VBA

Re,

Code:

Sub Macro1()
With Sheets("N-1")
    Select Case [c6]
        Case "P31003"
            .Range("P6").Interior.ColorIndex = 3
        Case "P31004"
            .Range("P8").Interior.ColorIndex = 3
        Case "P31005"
            .Range("P9").Interior.ColorIndex = 3
    End Select
End With
End Sub

Note que l'instruction If..End If pourrait très bien convenir également
A+
kjin

 

Vote positif 0 Vote négatif

J

Jer

Guest

• 4 Janvier 2011

• #5

Re : problème VBA

Nouveau souci (décidément...): lorsque j'affecte cette macro à une forme (rectangle) et que je lance ma macro, je reste sur ma page de recherche (c6)et ne me déplace pas sur ma feuille (N-1), par contre cela me remplie bien les cases de cette feuille mais ne les efface pas ensuite....ce qui fait que si je tape mais 1163 codes ça va être un sacré bordel....

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 4 Janvier 2011

• #6

Re : problème VBA

Bonjour,

La macro de Kjin fait précisément ce que tu as demandé initialement ...

Pour aller plus avant, n'hésites à poster ton fichier et à décrire le résultat escompté ...

A +
🙂

 

Vote positif 0 Vote négatif

J

Jer

Guest

• 4 Janvier 2011

• #7

Re : problème VBA

voici le fichier en question:


avec le code VBA rentré, lorsque je fais les recherches consécutivement dans l'onglet "recherche" en "c6" avec les codes programmés "P31003", "P31004" et "P31005", les cases concernées (P6,P8 et P9) dans l'onglet "N-1" restent remplies ce qui est problématique...cela dit ce code est le plus près du but🙂

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 5 Janvier 2011

• #8

Re : problème VBA

Jer à dit:

voici le fichier en question:
Cijoint.fr - Service gratuit de dépôt de fichiers

avec le code VBA rentré, lorsque je fais les recherches consécutivement dans l'onglet "recherche" en "c6" avec les codes programmés "P31003", "P31004" et "P31005", les cases concernées (P6,P8 et P9) dans l'onglet "N-1" restent remplies ce qui est problématique...cela dit ce code est le plus près du but🙂

Cliquez pour agrandir...

Bonjour,

Je ne sais pas si quelqu'un arrivera à extraire ton véritable fichier ...de ce que tu as posté ...

A +
🙂

 

Vote positif 0 Vote négatif