Comparer valeur d'une variable avec cellule

Fermé

JM27 - 15 sept. 2009 à 14:50
JMC27 - 15 sept. 2009 à 17:06

Bonjour,
Je souhaite comparer la valeur d'une cellule avec une variable, si la valeur de la cellule est égale à ma variable (texte) alors je me positionne sur 2 cellules de la même ligne, je les copies et les colles sur un autre classeur.
Si la valeur de la cellule n'est pas la même que la variable, je passe à la cellule suivante (dans la même colonne) et fait le même test jusqu'à la fin de la colonne ou une limite fixée par moi même.
J'ai commencé comme ça mais ça marche pas !
Option Explicit
Dim vendeur, Code, Truc

Sub Statvendeur()

vendeur = InputBox("Quel Nom de vendeur ?", "Affichage du nom du vendeur")

Sheets("Résultat contrôle").Select
ChDir "H:\CSO\Vendeurs ciblés"
Workbooks.Open Filename:="H:\nom de mon répertoire\Vendeurs ciblés\Vendeurs ciblés mensuel.xls"
Range("D6").Select
If ("D6") = vendeur Then
Range("G6,J6").Select
Selection.Copy
Windows((vendeur) & ".xls").Activate
Sheets("Résultat contrôle").Select
Range("B104").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ElseIf ("C6") <> vendeur Then
Range("D7").Select
End If

End Sub

Merci par avance de votre aide !

A voir également:

Comparer valeur d'une variable avec cellule
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide
Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
Formule pour copier la valeur d'une cellule excel ✓ - Forum Excel

3 réponses

Réponse 1 / 3

Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
15 sept. 2009 à 15:28

Bonjour,
Pouvez-vous préciser se qui ne marche pas ?

Réponse 2 / 3

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
15 sept. 2009 à 15:32

bonjour,

Range("D6").Select
If ("D6") = vendeur Then
....
ElseIf ("C6") <> vendeur Then
   Range("D7").Select
End If

à transformer en

 If range("D6") = vendeur Then 
....
ElseIf range("C6") <> vendeur Then
       Range("D7").Select
   End If 
end if

JMC27
15 sept. 2009 à 17:06

Merci Michel, cela fonctionne parfaitement avec tes conseils !

Super

Réponse 3 / 3

Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
15 sept. 2009 à 15:39

Bonjour,
C'est bon, mais il manque la boucle sur les vendeurs en colonne "C" !

Discussions similaires

Problème de restrictions

Bonjour,

Je travaille sur un classeur Excel qui est déjà passé par plusieurs mains. Je dois le modifier.

Pour tester une nouvelle formule, j'insère une nouvelle colonne dans laquelle je mets ma formule. Et là apparait le message d'erreur :

"La valeur que vous avez tapée n'est pas valide

Un utilisateur a restreint les valeurs que peut prendre cette cellule"

Ma formule fonctionne très bien dans d'autres cellules, le problème ne vient donc pas de là.

Comment puis-je lever cette restriction ?

Merci d'avance,

Cordialement,

Configuration: Window...

additionner nombres dans cellules avec texte

Bonjour à tous,
Je vous contacte car je n'ai pas trouvé la solution à mon problème.
J'ai vu des posts qui s'en rapprochaient mais pas réussi à mettre en œuvre :/

J'ai deux colonnes contenant texte et chiffres et souhaite "simplement" additionner les chiffres afin de contrôler si les totaux sont bons.
Voilà ce que j'ai :
Existe [3] N'existe pas [223]
Existe [185] N'existe pas [41]
Existe [10] N'existe pas [216]
Existe [21] N'existe pas [205]
Existe [6] N'existe pas [220]
Existe [6] N'existe pas [220]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]

Cette valeur ne correspond pas aux restrictions

Bonjour tout le monde , je travail sur un fichier excel est impossible de saisir un chiffre ce message me bloque (cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule) a chaque saisie , comment éviter cela ... Merci je travail sur Mac version pour Mac version 16.75.2 . really a big thank you.

Cellules en surbrillance selon une TextBox

Bonjour à tous,

Voici mon problème : j'ai une liste d'utilisateurs dans une TextBox. Chaque utilisateur est lié à plusieurs références listées sur la feuille 'Principal'.
Est-il possible de mettre en surbrillance (police en gras ou coloriage temporaire de la cellule) toutes les références liées à un utilisateur choisi dans la TextBox ?

Une copie d'écran pour me faire comprendre (enfin j'espère !)

Merci pour votre aide !
Wyrgle

restriction de valeur sur Excel

Bonjour,

Un utilisateur a restreint les valeurs sur un tableau excel. Comment annuler cette restriction ?

Merci

Configuration: Windows XP / Internet Explorer 6.0