[excel VBA] faire une condition IF

Fermé
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014 - 10 oct. 2010 à 19:15
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 14 oct. 2010 à 11:03
Bonjour,
je veux faire une condition
SI la cellule "Di" est selectionné et si elle porte la valeur "ilies" ALORS
go to la cellule "Fi"
SI NON go to la cellule "Gi"
i=1,2,3,4,5,6,......... jusqu'a la fin du tableau
et merci
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
13 oct. 2010 à 14:08
Bonjour,
Je ne comprends pas l'utilité. Si l'utilisateur de ton tableau cliques sur une cellule de la colonne D, il voit si cette cellule contient "ilies". Pourquoi ne clique t'il pas de lui même sur la cellule correspondante colonne F ou G?
Maintenant, si c'est pour faire une boucle et ajouter une valeur en F ou G selon la valeur de D, ça n'est déjà plus la même question.
Au risque de me répéter : que veux tu faire exactement et pourquoi?
0
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014
13 oct. 2010 à 20:38
je veux faire ca pour gagné du temps
si la colonne "D" porte la valeur "ilies" alors le curseur automatiquement va dans la colonne
"F" si non le curseur automatiquement va la colonne "G" et tous ca pour eviter la souris
ces tous et merci
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
14 oct. 2010 à 11:03
Salut,
Alors tout simplement, tu reprends la solution proposée par Patrice33740 dans ce sujet :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const n°C As Integer = 3   'N° de la dernière colonne du tableau
  If Target.Column = n°C Then
    If GetAsyncKeyState(vbKeyReturn) = -32768 Then
      Application.EnableEvents = False
      Target.Offset(0, 1 - n°C).Select
      Application.EnableEvents = True
    End If  
  End If
End Sub

Solution que tu adaptes (en gras) à ta demande comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const n°C As Integer = 4   'Colonne D
  If Target.Column = n°C Then
    Si la valeur de la cellule est = "ilies" Alors
     Sélectionner la cellule située 2 colonnes à droite de la cellule active
     Sinon
     Sélectionner la cellule située 3 colonnes à droite de la cellule active
      Fin du test  
  End If
End Sub
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
13 oct. 2010 à 14:19
Bonjour,

Pas facilement compréhensible cette question !
Il semble que ce post est dans la continuité de celui-ci :
{excel vba} retourner a la ligne

Il est assez désagréable de voir les spécifications d'un problème évoluer au fur et à mesure qu'on apporte des solutions !

Comme nous te l'avons suggéré, il serait souhaitable que tu apprenne à utiliser Excel dans les règles de l'art :
« C'est plus certains utilisateurs qui veulent obligatoirement une macro, dès qu'il y a une fonctionnalité d'excel qu'ils ne savent pas utiliser, plutôt que d'essayer, d'apprendre et être autonomes ensuite. » (Eriiic)
« J'avais osé croire qu'il est plus simple d'apprendre à utiliser Excel normalement plutôt que de vouloir créer un mode de fonctionnement spécifique à un classeur, mais voila, il persiste ! » (Patrice)

Comme dit un vieux proverbe : « l'erreur est humaine, persister (dans l'erreur) est diabolique !»

Quand tu connaitra mieux Excel, tu pourras commencer à apprendre le VBA, nous serons là pour t'aider, mais pas pour développer à ta place.

Par contre, si tu ne souhaite pas apprendre et que tu veux que quelqu'un développe une application pour toi, établit alors un cahier des charges précis et détaillé dès le départ, il y aura très probablement sur ce forum une âme charitable qui sera intéressée par le défi.

Patrice
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
13 oct. 2010 à 15:54
Salut Patrice,
Je n'avais point vu ce thread initial...
Mais l'auteur n'a pas réapparu pour les demandes complémentaires, alors "wait and see".
0