Discussion :

[Nick426]

Slt à tout le monde,

Je débute en VBA et du coup je suis un peu à la ramasse.
J'ai écrit ce programme mais je fais que recevoir des messages d'erreur.
Si je peux avoir un petit coup de pouce... Cela me fera le plus grand bien.
Merci
Voici le programme en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub Rad()
Dim Noms As String
Dim Observations As String
Dim ligne As Long
Dim colonne As Long
Cells(ligne, 2) = Noms
Cells(ligne, 34) = Observations
If Noms = "Nina" Then Observations = "Radier"
If Noms = "Nana" Then Observations = "Radier"
End Sub

En fait j'ai envie que à chaque fois que un nom précis sera écrit le mot 'Radier" s'affiche dans la cellule de la colonne Observations.

Merci.

[Invité]

Bonjour,

Dans un module standard :

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
 
Option Explicit
 
Sub MonObservation(ByVal FeuilleEnCours As Worksheet, ByVal LigneEnCours As Long, ByVal NomSaisi As String, ByVal ValeurObservation As String)
 
Dim MaListeDeNoms As Variant
Dim I As Long
 
    MaListeDeNoms = Array("Nina", "Nana", "Nono")
 
    With FeuilleEnCours
         For I = LBound(MaListeDeNoms) To UBound(MaListeDeNoms)
             If MaListeDeNoms(I) = NomSaisi Then
                .Cells(LigneEnCours, 34) = ValeurObservation
             End If
         Next I
    End With
 
 
End Sub

Dans le module de votre onglet de saisie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
        If Target.Count > 1 Then Exit Sub
 
        If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
 
                MonObservation ActiveSheet, Target.Row, Target.Value, "Radier"
 
 
        End If
 
End Sub

Bonjour Thautheme

[Thautheme]

Bonjour Nick, bonjour le forum,

Tu n'as pas initialisé la variable ligne. Cela provoque un message d'erreur. La variable colonne n'est pas utilisée. Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub Rad()
Dim Noms As String
Dim Observations As String
Dim ligne As Long
 
ligne = 1 'à adapter à ton cas (mais pourquoi utiliser une variable, autant l'écrire en dur)
Noms = Cells(ligne, 2).Value 'récupère le nom dans la cellule
If Noms = "Nina" Then Observations = "Radier"
If Noms = "Nana" Then Observations = "Radier"
Cells(ligne, 34).Value = Observations 'envoie le dossier dans la cellule
End Sub

[Édition]
Bonjour Éric, nos posts se sont croisés...

[Pierre Fauconnier]

Salut

[...]
En fait j'ai envie que à chaque fois que un nom précis sera écrit le mot 'Radier" s'affiche dans la cellule de la colonne Observations.

Merci.

Quel nom précis? Où doit-il être écrit?

Tu es étudiant... C'est pour un exercice (débile et inutile)? On fait ça en 10 secondes avec une formule Excel, à transcrire éventuellement en VBA.

[Invité]

Salut Pierre,

T'as vu les réponses, c'est béton hein....

[Menhir]

Je vois au mois deux erreurs majeures :
Tu as mis à l'envers l'assignation des variables Noms et Observations (qui est d'ailleurs inutile)
Tu n'as pas créer de boucle pour faire varier la variable ligne.
Lis ceci : http://silkyroad.developpez.com/vba/boucles/

Code :

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

1
2
3
4
5
6
Public Sub Rad()
Dim ligne As Long
For ligne = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(ligne, 2) = "Nina" Or Cells(ligne, 2) = "Nana" Then Cells(ligne, 34) = "Radier"
Next ligne
End Sub

[Nick426]

Merci pour ta réponse.

[Nick426]

Merci à tous pour votre coup de main.

A bientôt .