Macro cherche une cellule dans un tableau/remplace
Résolu
fafou0006
Messages postés
4
Statut
Membre
-
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
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 word - Guide
- Quel site remplace coco - Accueil - Réseaux sociaux
- Fermeture de Coco : les internautes à la recherche d'un remplaçant - Accueil - Réseaux sociaux
- Trier un tableau excel - Guide
- Tableau ascii - Guide
2 réponses
Bonjour,
Regarde la méthode FIND
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
Regarde la méthode FIND
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
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 :ICIMerci d'y penser dans tes prochains messages.Jordane45 |
Montre ou tu en est dans ton code
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 SubExplications disponibles ici :ICI
Merci d'y penser dans tes prochains messages.Jordane45