Sujet Précédent Sujet Suivant

Macro cherche une cellule dans un tableau/remplace

Résolu/Fermé
fafou0006 Messages postés 4 Date d'inscription dimanche 18 février 2018 Statut Membre Dernière intervention 20 février 2018 - 18 févr. 2018 à 06:09
fafou0006 Messages postés 4 Date d'inscription dimanche 18 février 2018 Statut Membre Dernière intervention 20 février 2018 - 20 févr. 2018 à 09:34
Bonjour,

merci d avance pour votre aide
alors voila mon probleme
j aimerai avoir une macro qui me permet de chercher un caracter ecrit dans une cellule "feuil1 cellule a1" au sein d' un tableau qui ce trouve dans la feuil2 exp: "a1:z100". le caractere que je cherche ce trouve dans la colonne A et la colonne B en face represente des chiffre correspondant. je veut que la macro ajoute un 1 a cette cellule correspondante.
exemple:
dans la feuil1 dans a1 il est ecrit: tomate
dans la feuil2 la premier colonne comporte tomate, patate,..ect et face de tomate il ya 5 et en face de patate il ya 14 quand j 'excute la macro elle prend 5 qui correspond a tomate et lui ajoute 1 qui fera 6
merci

A voir également:

2 réponses

Réponse 1 / 2
jordane45 Messages postés 38289 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 novembre 2024 4 703
18 févr. 2018 à 08:33
Bonjour,

Regarde la méthode FIND
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel

0
fafou0006 Messages postés 4 Date d'inscription dimanche 18 février 2018 Statut Membre Dernière intervention 20 février 2018
18 févr. 2018 à 10:51
Merci de votre reponse j est essayer avec mais cette methode ne fait la deuxieme partie de mon probleme a savoir ajouter a 1 a la cellule correspondante.
0
jordane45 Messages postés 38289 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 novembre 2024 4 703
18 févr. 2018 à 11:09
Ben non.. ça ne se fait pas tout seul. .
Montre ou tu en est dans ton code
0
fafou0006 Messages postés 4 Date d'inscription dimanche 18 février 2018 Statut Membre Dernière intervention 20 février 2018
Modifié le 20 févr. 2018 à 10:18
je débute avec vba dsl:
voila ce que j 'est fai pour le moment ca marche seulement pour trouver le numero de la case pour la deuxieme partie je n'est accunne idee d'ou commance: 
Sub actualiser()

Dim matri As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, Adressematri As String

Valeur_Cherchee = Sheets("feuil1").Cells(7, 2)
  
Set PlageDeRecherche = Feuil2.Columns(1)

Set matri = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)


If matri Is Nothing Then

    Adressematri = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else

    Adressematri = matri.Address
End If
MsgBox Adressematri

Set PlageDeRecherche = Nothing
Set matri = Nothing

End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).

Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
Jordane45
0
Réponse 2 / 2
fafou0006 Messages postés 4 Date d'inscription dimanche 18 février 2018 Statut Membre Dernière intervention 20 février 2018
Modifié le 20 févr. 2018 à 10:19
merci pour votre aide les amies je me suis creusé les neurones et j 'ai trouver la solution que j aimerai partager avec vous: 
Sub actualiser()

Dim matri As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, Adressematri As String
Dim i As Integer, j As Integer
Dim m As Integer, n As Integer
Valeur_Cherchee = Sheets("feuil1").Cells(7, 2)
  
Set PlageDeRecherche = Feuil2.Columns(1)

Set matri = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)


If matri Is Nothing Then

    Adressematri = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
Else

    Adressematri = matri.Address
    Range(matri.Address).Select
    j = Range(matri.Address).Row
    i = Range(matri.Address).Column
   
   m = i + 3
   n = j
   Feuil2.Cells(n, m) = Feuil2.Cells(n, m) + 1
   
    
End If


Set PlageDeRecherche = Nothing
Set matri = Nothing

End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).

Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
Jordane45
0

Discussions similaires

Trouver le nom d'un tableau avec sa photo.
lillo56 -
zetnot -

11 réponses