Discussion :

[guismoman60]

Bonjour voici mon petit programme vba qui ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Range("b4:b1000"), Target) Is Nothing Then
    If Right(Range.Select, 4) = "CAMP" Then
         Selection.Interior.ColorIndex = 46
    End If
 End If
 End Sub

En clair quand ma cellule change de valeur dans la colonne b, si les 4 premiere lettre de la chaine s'appelle CAMP je met en orange ma case.

En deuxieme temps il ira me chercher des données que je vais ecrire dans les cellule.
(ca je sais faire)
si je met "camp" dans ma cellule B3, il m'affichera en B4 la donnee 1 recuperer, en B5 la donnee 2 etc... Pour ca il faut que je relève le numero de la ligne changé.

Sa marche pas...

De l'aide, help me

[BlueMonkey]

Salut,

si les 4 premieres lettres de la chaine s'appelle CAMP

La fonction Right retourne les derniers caractères, pas les premiers.

Essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("b4:b1000"), Target) Is Nothing Then
       If Left(Target, 4) = "CAMP" Then
            Target.Interior.ColorIndex = 46
       End If
    End If
End Sub

[EngueEngue]

Je pense que tu as un problème de repérage de droite et gauche.

Alors un conseil:
Si tu es gaucher tu fais semblant d'écrire et cette main c'est ta main gauche! A l'inverse pour la droite.

Fais attention lorsque tu conduis la priorité est à droite!

Tes quatre premières lettres sont CAMP so:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

left(target,4)

(On écrit de gauche à droite en français!)

[guismoman60]

Désolé pour cette erreur, concentrons nous plus sur le faites...

J'ai bien avancer sur le programme, mais comment avoir le numéro de la ligne qui a changé?

[BlueMonkey]

Dans Sub Worksheet_Change(ByVal Target As Range) tu peux utiliser Target.Row pour récupérer le n° de la ligne qui a changé.

[guismoman60]

Merci beaucoup de votre aide. Mon petit script avance mais bloque

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j, c As Integer
Target.Row = i
c = 1
 
 If Not Intersect(Range("b4:b1000"), Target) Is Nothing Then
 
        If Left(Sheets("PLANNING").Cells(i, 2), 4) = "CAMP" Then
            Sheets("PLANNING").Cells(i, 2).Interior.ColorIndex = 46
            For j = 4 To 1000
                If Sheets("CODE").Cells(j, 3) = Sheets("PLANNING").Cells(i, 4) And Sheets("CODE").Cells(j, 4) = Sheets("PLANNING").Cells(i, 5) And Sheets("CODE").Cells(j, 5) = Sheets("PLANNING").Cells(i, 6) And Left(Sheets("CODE").Cells(j, 7), 2) = Sheets("PLANNING").Cells(i, 7) And Sheets("CODE").Cells(j, 8) = Sheets("PLANNING").Cells(i, 8) Then
 
                    Sheets("PLANNING").Cells(i + c, 2) = Sheets("CODE").Cells(j, 1)
                    c = c + 1
                End If
            Next
         End If
 
 End If
 End Sub

Merci de votre aide

[EngueEngue]

Je ne vois pas oùu est le problème.. Et si tu nous expliquais ce qui beugue ?

Change:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i, j, c As Integer

Par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i as integer, j as integer, c as integer

[BlueMonkey]

Qu'est ce que tu espère avoir avec Target.Row = i ?
Sans l'initialisé i vaut 0. Et le premier indice de ligne accessible est 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j, c As Integer
Target.Row = i

Dans Sub Worksheet_Change(ByVal Target As Range) si tu change la valeur d'une cellule,
tu provoque un nouvel évènement Worksheet_Change(), ce qui peut provoquer une boucle infinie.

Pour s'en prémunir, tu peux utiliser Application.EnableEvents = false en début de routine et Application.EnableEvents = True à la fin.

Sinon il faudrait nous dire où ça bloque ? Qu'est ce qui se passe (message d'erreur, boucle infinie ?)