Difficultés à Programmer sous VBA

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:

---

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.

Citation:

---

Envoyé par Nick426

---

Bonjour,

Dans un module standard :

Code:

---

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:

---

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 :coucou:

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:

---

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...

Salut

Citation:

---

Envoyé par Nick426

[...]
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.

Citation:

---

Envoyé par Pierre Fauconnier

---

Salut Pierre,

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

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:

---

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

---

Merci pour ta réponse.

Merci à tous pour votre coup de main.

A bientôt :D.