A voir également:
- Macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
10 réponses
Bonjour
Envoie-moi un exemple des deux feuilles, et j'essaierai de t'aider.
Bon courage
adresse mail ou tu peux envoyer : ouadah_kaidi@hotmail.com
KAIDI
Envoie-moi un exemple des deux feuilles, et j'essaierai de t'aider.
Bon courage
adresse mail ou tu peux envoyer : ouadah_kaidi@hotmail.com
KAIDI
Salut tous,
Vous êtes sur que vous avez besoin d'une macro pour ça ???
Une simple formule =RECHERCHE(...) fait amplement l'affaire non ? Cela est plus simple il me semble... Ou bien j'ai mal compris l'idée ??
@+
Vous êtes sur que vous avez besoin d'une macro pour ça ???
Une simple formule =RECHERCHE(...) fait amplement l'affaire non ? Cela est plus simple il me semble... Ou bien j'ai mal compris l'idée ??
@+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je pense également qu'on n'a pas besoin d'une macro, mais pas d'avantage de "formule =RECHERCHE(...) "; car je ne vois pas trop comment elle pourrait obtenir ce qu'elle veut avec!! (??)
je ne peut pas envoyé les feuilles c confidentiel,
je ne peut pas non plus faire une recherche car ce que j'affiche est par rapport à deux chose, le numéro de contrat et la designation.
je ne peut pas non plus faire une recherche car ce que j'affiche est par rapport à deux chose, le numéro de contrat et la designation.
tu n'es pas obligé de divulguer des secrets !!! trafique les données, le but n'est pas le sens mais l'esprit !!! envoies-en juste un bout en changeant les données!! c'est pour toi, c'est toi qui voit!!
bonne chance!!
bonne chance!!
Bonjour,
'Exemple type :
'
' Feuil1
' Soit en Colonne A les contrats
'
' Feuil2
' Soit en colonne A les contrats, en colonne B les types
'
' Recherche linéaire
'
Sub ChercheType()
...Dim FleCont As String 'Feuille des contrat a associer
...Dim FleType As String 'Feuille contenant les types a rechercher
...Dim CodCont As String 'Code d'un contrat
...Dim CodType As String 'Code d'un type
...Dim Flag As Boolean
...FleCont = "Feuil1"
...FleType = "Feuil2"
...CodType = ""
...CodCont = ""
...Sheets(FleCont).Select
...Range("A1").Select
...CodCont = ActiveCell.Offset(0, 0).Value
...While (CodCont <> "") 'Tant que ligne n'est pas vide
......Sheets(FleType).Select
......Range("A1").Select
......Flag = True
......While ((ActiveCell.Offset(0, 0) <> "") And (Flag))
.........If (CodCont = ActiveCell.Offset(0, 0).Value) Then
............CodType = ActiveCell.Offset(0, 1).Value
............Flag = False
.........End If
.........ActiveCell.Offset(1, 0).Select
......Wend
......Sheets(FleCont).Select
......If (CodType <> "") Then
.........ActiveCell.Offset(0, 1).Value = CodType
.........CodType = ""
......End If
......'Incrémentation de la position Feuil1
......ActiveCell.Offset(1, 0).Select
......CodCont = ActiveCell.Offset(0, 0).Value
...Wend
End Sub
*********************************
N.B. Les points sont pour conserver la tabulation
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~
'Exemple type :
'
' Feuil1
' Soit en Colonne A les contrats
'
' Feuil2
' Soit en colonne A les contrats, en colonne B les types
'
' Recherche linéaire
'
Sub ChercheType()
...Dim FleCont As String 'Feuille des contrat a associer
...Dim FleType As String 'Feuille contenant les types a rechercher
...Dim CodCont As String 'Code d'un contrat
...Dim CodType As String 'Code d'un type
...Dim Flag As Boolean
...FleCont = "Feuil1"
...FleType = "Feuil2"
...CodType = ""
...CodCont = ""
...Sheets(FleCont).Select
...Range("A1").Select
...CodCont = ActiveCell.Offset(0, 0).Value
...While (CodCont <> "") 'Tant que ligne n'est pas vide
......Sheets(FleType).Select
......Range("A1").Select
......Flag = True
......While ((ActiveCell.Offset(0, 0) <> "") And (Flag))
.........If (CodCont = ActiveCell.Offset(0, 0).Value) Then
............CodType = ActiveCell.Offset(0, 1).Value
............Flag = False
.........End If
.........ActiveCell.Offset(1, 0).Select
......Wend
......Sheets(FleCont).Select
......If (CodType <> "") Then
.........ActiveCell.Offset(0, 1).Value = CodType
.........CodType = ""
......End If
......'Incrémentation de la position Feuil1
......ActiveCell.Offset(1, 0).Select
......CodCont = ActiveCell.Offset(0, 0).Value
...Wend
End Sub
*********************************
N.B. Les points sont pour conserver la tabulation
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~
