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:

Macro cherche une cellule dans un tableau/remplace
Tableau croisé dynamique - Guide
Aller à la ligne dans une cellule excel - Guide
Tableau ascii - Guide
Tableau word - Guide
Macro word - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
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

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.

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
18 févr. 2018 à 11:09

Ben non.. ça ne se fait pas tout seul. .
Montre ou tu en est dans ton code

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

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

Discussions similaires

ou sont les bananes ?

Trouver le nom d'un tableau avec sa photo.

formule de calcule

exo pix

Explications disponibles ici :ICI

Explications disponibles ici :ICI

Discussions similaires

Newsletters