Macro cherche une cellule dans un tableau/remplace

Résolu
fafou0006 Messages postés 4 Statut Membre -  
fafou0006 Messages postés 4 Statut Membre -
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

2 réponses

  1.
    jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    Bonjour,

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

    0
    1. fafou0006 Messages postés 4 Statut Membre
       
      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
    2. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
       
      Ben non.. ça ne se fait pas tout seul. .
      Montre ou tu en est dans ton code
      0
    3. fafou0006 Messages postés 4 Statut Membre
       
      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
  2. fafou0006 Messages postés 4 Statut Membre
     
    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