VB : macro qui lit la valeur de plusieurs cel
RIYANEMADRID
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
VB : macro qui lit la valeur de plusieurs cellule
Bonjour,
J'ai une feuille Excel avec des colonnes qui s'actualisent grâce à une requête que j'ai crée auparavant et une colonne appart la "BV" ou chaque cellule dans cette dernière contiens une vérification :
=SI(ET(ESTNA(RECHERCHEV(B2;Base!$A:$E;3;0));OU($J2<>0;$K2<>0;$L2<>0;$M2<>0;$N2<>0));"oui";"non")
et je voudrais crée une macro qui lit les "oui" et copie les cellule de la colonne "A" et "B" correspondant à mon "oui" et les copie dans une autre feuille
Comment faire, un peu sera nécessaire
PS : ma base contient un gros nombre de ligne allant jusqu'à 2000 et plus
Merci d'avance
Bonjour,
J'ai une feuille Excel avec des colonnes qui s'actualisent grâce à une requête que j'ai crée auparavant et une colonne appart la "BV" ou chaque cellule dans cette dernière contiens une vérification :
=SI(ET(ESTNA(RECHERCHEV(B2;Base!$A:$E;3;0));OU($J2<>0;$K2<>0;$L2<>0;$M2<>0;$N2<>0));"oui";"non")
et je voudrais crée une macro qui lit les "oui" et copie les cellule de la colonne "A" et "B" correspondant à mon "oui" et les copie dans une autre feuille
Comment faire, un peu sera nécessaire
PS : ma base contient un gros nombre de ligne allant jusqu'à 2000 et plus
Merci d'avance
A voir également:
- VB : macro qui lit la valeur de plusieurs cel
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
1 réponse
Bonjour
Macro à adapter à tes besoins (sheets, colonne des oui....) j'ai eu la flemme de trouver le n° de colonne BV :-)
Macro à adapter à tes besoins (sheets, colonne des oui....) j'ai eu la flemme de trouver le n° de colonne BV :-)
Const col As Byte = 4 'n° colonne des "oui"
Sub oui_oui()
Dim Nbre_oui As Integer, Lig As Integer
Dim Tablo
With Sheets(1)
Nbre_oui = Application.CountIf(.Columns(col), "oui")
ReDim Tablo(1 To Nbre_oui, 1 To 2)
Lig = 1
For cptr = 1 To Nbre_oui
Lig = .Columns(col).Find("oui", .Cells(Lig, col)).Row
Tablo(cptr, 1) = .Cells(Lig, 1)
Tablo(cptr, 2) = .Cells(Lig, 2)
Next
End With
Application.ScreenUpdating = False
With Sheets(2)
.Range("A2:B5000").ClearContents
.Range("A2").Resize(Nbre_oui, 2) = Tablo
.Activate
End With
End Sub
merci infinement pour ton aide
With Sheets(2) derlig = .Range("A65536").End(xlUp).Row + 1 .Cells(derlig, 1).Resize(Nbre_oui, 2) = Tablo .Activate End WithWith Worksheets("mafeuil")
Selection.AutoFilter Field:=1, Criteria1:="oui"
.Range("B2:B5000").Copy
End With
Et j'aimerai bien la suite pour coller a partir de la première cellule vide de la colonne A dans la feuil2
Merci!