VBA - Chercher une valeur dans une colonne, et modifier la cellule voisine

Jocelyn

XLDnaute Barbatruc

• 15 Octobre 2013

• #2

Re : Chercher une valeur dans une colonne, et modifier la cellule voisine

Bonjour le Forum,
Bonjour Domdom49,

un essai en fichier joint, attention pour que cela fonctionne il faut aller dans les options et cocher itération

Cordialement

 

Pièces jointes

• Test-3.xls

  8 KB · Affichages: 35
• Test-3.xls

  8 KB · Affichages: 37
• Test-3.xls

  8 KB · Affichages: 39

Vote positif 0 Vote négatif

D

Domdom49

Guest

• 15 Octobre 2013

• #3

Re : Chercher une valeur dans une colonne, et modifier la cellule voisine

Bonjour Jocelyn, et merci pour ton aide.

Sans paraître trop difficile, je privilégie plutôt le processus avec le bouton "Valider", car je pourrais être amener à modifier à la mano le contenu des cellules de la colonne "Affectation", et du coup écraser les formules de cette colonne.

Merci
Domdom49

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 15 Octobre 2013

• #4

Re : Chercher une valeur dans une colonne, et modifier la cellule voisine

Re,

Qui dit bouton, dit VBA et malheureusement je suis une bille à ce jeu la, je ne vais donc pas pouvoir t'aider davantage, désolé.

Maintenant soit tu attends pour voir si un de nos VBaiste passe sur ce fil soit tu crées une nouvelle discussion en indiquant VBA dans le titre et en précisant que tu souhaites un bouton de validation

 

Vote positif 0 Vote négatif

D

Domdom49

Guest

• 15 Octobre 2013

• #5

Re : VBA - Chercher une valeur dans une colonne, et modifier la cellule voisine

Pas de souci, merci pour ton aide Jocelyn !

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 15 Octobre 2013

• #6

Re : VBA - Chercher une valeur dans une colonne, et modifier la cellule voisine

salut

code du bouton :

Code:

Sub Bouton_Cliquer()
  Cells([A:A].Find([F5]).Row, 2) = [F6]
End Sub

ou sans bouton mais avec une évènementielle (dans la page de code de la feuille)

Code:

Private Sub Worksheet_Change(ByVal R As Range)
  If Intersect(R, [F5:F6]) Is Nothing Then Exit Sub
  Select Case R.Row
    Case 5: Cells([A:A].Find(R).Row, 2) = [F6]
    Case 6: Cells([A:A].Find(R(0, 1), , , 1).Row, 2) = [F6]
  End Select
End Sub

 

Pièces jointes

• Test-3.xls

  44.5 KB · Affichages: 50
• Test-3.xls

  44.5 KB · Affichages: 57
• Test-3.xls

  44.5 KB · Affichages: 62

Vote positif 0 Vote négatif

D

Domdom49

Guest

• 15 Octobre 2013

• #7

Re : VBA - Chercher une valeur dans une colonne, et modifier la cellule voisine

Bonjour Si...

Merci pour ton aide, je valide la solution avec le bouton 😉 !

Par contre petite question : dans mon exemple, la liste déroulante pour les noms est fixée pour la plage A4:A16.
J'aimerais dans la mesure du possible que cette liste soit dynamique et prenne en compte les noms jusqu'à la dernière cellule non vide.

Est-ce possible ?

Merci encore,
Domdom49

 

Vote positif 0 Vote négatif

D

Domdom49

Guest

• 15 Octobre 2013

• #8

Re : VBA - Chercher une valeur dans une colonne, et modifier la cellule voisine

C'est tout bon, j'ai trouvé !

Merci beaucoup !
Domdom49

 

Vote positif 0 Vote négatif