Rechercher une valeur sur plusieurs lignes
Résolu/Fermé
siamens_duj
Messages postés
192
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
-
1 juin 2016 à 14:06
siamens_duj Messages postés 192 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 - 7 juin 2016 à 09:34
siamens_duj Messages postés 192 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 - 7 juin 2016 à 09:34
A voir également:
- Vba rechercher une valeur dans une ligne
- Rechercher ou entrer l'adresse - Guide
- Aller à la ligne dans une cellule excel - Guide
- Partager photos en ligne - Guide
- Rechercher une chanson - Guide
- Rechercher une adresse - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 2/06/2016 à 09:12
Modifié par michel_m le 2/06/2016 à 09:12
Bonjour,
Juste pour le problème Valeur sur plusieurs lignes
déclarations:
je n'ai pas regardé les imbrications avec i et j peut ^tre avant ou après le next.. à toi de voir
Michel
Juste pour le problème Valeur sur plusieurs lignes
déclarations:
Dim Plage as range
Dim Ligne as Byte 'tu ne vas que de 6 à 100
suppression de cellule trouvée
et
suppression de col
tu cherches "$cahier" dans la colonne B donc Col sera toujours égale à "B" (ou 2)
je n'ai pas regardé les imbrications avec i et j peut ^tre avant ou après le next.. à toi de voir
Workbooks.Open (CheminFichier & Fichier)
indice = "$cahier"
Set Plage = Sheets(1).Range("B16:B100") 'sheets non précisé à adapter
nbre = Application.CountIf(Plage, indice)
If nbre = 0 Then
ligne = 15
For Cptr = 1 To nbre
ligne = Plage.Find(indice, Cells(ligne, "B"), lookat:=xlWhole).Row
With Workbooks("Programme.xlsm").Sheets("Inv")
.Cells(j, (l + 1)).Value = Cells((ligne - 1), "C")
'... etc
End With
Next
End If
Else
'msgbox.....
Michel
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
6 juin 2016 à 10:17
6 juin 2016 à 10:17
bonjour,
je n'ai plus le pb en t^te mais j'ai du écrire une C... (au choix)
if nbre>0 au lieu de nbre=0
je n'ai plus le pb en t^te mais j'ai du écrire une C... (au choix)
if nbre>0 au lieu de nbre=0
siamens_duj
Messages postés
192
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
7
6 juin 2016 à 10:46
6 juin 2016 à 10:46
Merci, en effet je pense que c'était une partie du problème ;)
Mais j'ai une autre erreur sur :
repere = Plage.Find(indice, Cells(Ligne, "B"), lookat:=xlWhole).Row
"L'indice n'appartient pas à la sélection"
Sauriez-vous pourquoi ?
Merci pour votre aide.
Mais j'ai une autre erreur sur :
repere = Plage.Find(indice, Cells(Ligne, "B"), lookat:=xlWhole).Row
"L'indice n'appartient pas à la sélection"
Sauriez-vous pourquoi ?
Merci pour votre aide.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
>
siamens_duj
Messages postés
192
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
6 juin 2016 à 11:10
6 juin 2016 à 11:10
ce coup-ci , ca fait 1 partout ;o° (je sais , c'est lundi)
moi je parlais de "ligne" et toi de "repère "
donc en employant "repere"
repere = Plage.Find(indice, Cells(repere, "B"), lookat:=xlWhole).Row
moi je parlais de "ligne" et toi de "repère "
donc en employant "repere"
repere = Plage.Find(indice, Cells(repere, "B"), lookat:=xlWhole).Row
siamens_duj
Messages postés
192
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
7
Modifié par siamens_duj le 6/06/2016 à 13:32
Modifié par siamens_duj le 6/06/2016 à 13:32
Maintenant j'ai une "incompatibilité de type" :(
siamens_duj
Messages postés
192
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
7
7 juin 2016 à 08:10
7 juin 2016 à 08:10
UP svp
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
7 juin 2016 à 09:14
7 juin 2016 à 09:14
BONJOUR,
Je n'ai pas que ca à faire !
le mieux est de joindre les 2 classeurs dans un zip
Je n'ai pas que ca à faire !
le mieux est de joindre les 2 classeurs dans un zip
Mettre le zip sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci par un clic droit sur le lien proposé dans le message de réponse
siamens_duj
Messages postés
192
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
7
7 juin 2016 à 09:34
7 juin 2016 à 09:34
Bonjour,
c'est bon j'ai réussi.
Merci.
c'est bon j'ai réussi.
Merci.
Modifié par siamens_duj le 6/06/2016 à 09:51
merci pour votre réponse.
Cependant, ce code ne fonctionne pas.
Ai-je peut-être fais une erreur ?