VBA Excel : Trouver l'adresse d'une valeur

Bushinone Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
joad5623 - 14 sept. 2015 à 10:40

Bonjour tout le monde !
J'aimerai savoir comment récupérer l'adresse d'une cellule contenant une valeur donnée.

Par exemple :
je cherche la valeur "Value" sur une feuille
et je set nb_lin comme le numero de ligne ou se trouve la valeur et nb_col le numéro de colonne de cette même cellule, et ce pour pouvoir réutiliser nb_lin et nb_col plus tard dans la macro ?

Comment puis-je faire ?
Merci

Afficher la suite

A voir également:

Vba rechercher une valeur dans une colonne et renvoyer la ligne
Excel recherche numéro ligne contenant valeur - Meilleures réponses
Excel trouver le numéro de colonne d'une valeur - Meilleures réponses
Déplacer une colonne excel - Guide
Trier une colonne excel - Guide
Rechercher ou saisir une url - Guide
Aller à la ligne dans une cellule excel - Guide
Partager photos en ligne - Guide

3 réponses

Réponse 1 / 3

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 725

bonjour

Pour supprimer toutes tes lignes avec une cellule égale à 300 entièrement tu peux utiliser ceci :

Dim cel As Range
Do
    Set cel = Cells.Find(What:="300", LookAt:=xlWhole)
    If Not cel Is Nothing Then cel.EntireRow.Delete
Loop While Not cel Is Nothing
End Sub

xlWhole pour valeur entière de la cellule et xlPart pour valeur partielle

Berty59

Merci beaucoup gbinforme ca marche comme sur des roulettes!! Mon programme a bien avancé maintenant.

Réponse 2 / 3

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 725

bonjour

Si tu fais set cel = Find(What:="Value"), avec cel.row tu as la ligne, avec cel.column tu as la colonne et tu peux les utiliser tant que tu n'as pas changé la valeur.

D'autre part tu peux sélectionner la cellule avec cel.select

Bien sûr "cel" peut être remplacé par le nom de ton choix.

En espérant avoir répondu à ton interrogation.

Vincb9

ça ne fonctionne pas ça !
j'ai mis :

Private Sub B2_afterupdate()
Dim bet As String
Set cel = Find(What:="B2.value")

With Sheets("Bétons")
B3.Value = Cells(cel.Row, 5)
End With

Je veux faire ça pour eviter de faire un vlookup vu que ça Beug tout le temps

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 725

Bonjoiur,

Tu viens réveiller un sujet vieux de 4 ans : ouvres un sujet propre à toi.

Réponse 3 / 3

Berty59

Salut, je rencontre en ce moment le même problème, je recherche la valeur "300" dans mon tableur excel afin de supprimer la ligne où se trouve cette valeur. Seulement voilà, je rencontre 2 problèmes, le premier est que je n'arrive pas a extraire l'adresse de la cellule afin de supprimer la ligne, il m'affiche l'adresse comme cela : $A$26 alors que pour supprimer la ligne il faut utiliser cette commande :

Rows("16:16").select
Selection.delete Shift:=xlUp

Le deuxième problème est que je recherche uniquement les cellules ou la valeur 300 est stockée, pas les cellules ou il y a 30000 ou 130056, or il y a "300" inclus dans ces chiffres, donc ces lignes sont supprimés, je recherche donc le code (en VB bien sûr) me permettant de recherche dans ma feuille Excel les lignes ou "300" apparait et les supprimer. Merci d'avance pour la réponse.

joad5623

bonjour,
déclare une variable integer ou variant et stock y ta valeur, renomme la plage de cellule contenant ta valeur soit "liste"
soit
Sub test()
dim i as Variant 'car il est préférable de l'utiliser dans une boucle for each
dim ligne as Integer
dim cel as Range

For Each i in Range("liste")
if i = 300 then
Set cel = Cells.Find(what:=i)
ligne = cel.Row 'pour renvoyer le numéro de ligne
Rows(ligne).Select 'activer la igne retrouvée
Selection.delete Shift:=xlUp
Application.CutCopyMode = False
End if
Next
End Sub

Discussions similaires

Comparer plusieurs cellules (Excel)

EXCEL multiplier n cellules par 1 coeff.

Masquer une ligne sous condition

EXCEL - Copier une valeur vers une autre page

VBA COMPTER LE NB D'OCCURENCE

Dernière valeur non nulle

Votre réponse

Discussions similaires