Contenu récent par fred94000

bonjour Sandman. voici une formule du type Sommeprod. en celluleD2 =SOMMEPROD((L2:L12=A2)*(M2:M12=B2)*(N2:N12*C2))

Re : formule VBa RechercheV et equiv bonjour a tous et le forum après un travail acharné, j'ai fini par trouver la solution merci a tous je joint ma solution que j'ai adapté a mon fichier original Sub rcorrespondance() Dim n As Long, formule As String, formule2 As String Dim z As Long...

Re : formule VBa RechercheV et equiv Bonjour a toi tbft et le forum, j'y avais pensé mais cela ne me plaisait pas trop, j'espère qu'une autre solution en VBA me sera proposée. encore merci

Re : formule VBa RechercheV et equiv Bonjour PierreJean, je te joins un fichier. ayant deux feuilles BD et synthese apres une extraction de données de BD vers synthese qui fonctionne, je souhaite associer les données d'une autre colonne. Le fichier sera plus explicite Merci

Bonjour a tous et le forum besoin coup de main, pour transformer cette formule en VBA Sub rel() Dim n As Long Dim s%, formule As String n = Sheets("alerte").Range("a" & Rows.Count).End(xlUp).Row formule = "=si(a3" & n & "<> """";RECHERCHEV($B3" & n...

Re : problème VBA Tri liste personnalise Re staple1600, David84 bien compris exécution impeccable, donc il m'est impossible de rajouter des lignes en début de tableau? fonctionne très bien. grand MERCI à vous deux

Re : problème VBA Tri liste personnalise bonsoir staple1600, david84 et le forum, effectivement après modif, cela fonctionne mais une erreur dans la fin du tri cellule A45 je vous joins le fichier vous n'avez qu'a cliquez sur le bouton. merci encore

Re : problème VBA Tri liste personnalise bonsoir david84 et le forum, bug sur la ligne en rouge Sub tri() Dim Pl As Range, i As Long Application.ScreenUpdating = False Set Pl = Range("A1").CurrentRegion Columns(1).Insert Range("A1").Resize(Pl.Rows.Count) = Pl.Value For i = 2 To Pl.Rows.Count...

Bonsoir à tous et le forum, Je me permet de vous sollicité une fois de plus, y a t-il un autre moyen pour trier une liste de nombres. Les nombres entiers en premier et en fin les décimaux? voir exemple fichier La macro ci dessous ne fonctionne pas? Sub tri() Dim Num_List As Byte On Error...

Bonjour à tous et le forum, je reviens vers vous pour modifier ce programme. celui-ci me permet d'extraire des données d'une autre feuille mais me l'affiche verticalement. je voudrais qu'il s'affiche horizontalement. Sub màJ() Dim temp() Dim n As Long, formule As String Dim f...

Re : besoin des meilleurs VB istes du forum Bonjour JoB75 et le forum, Quel travail!!!!!!! du bonheur, Exactement ce que je recherche un très grand merci.

Re : besoin des meilleurs VB istes du forum Bonsoir Hervé et le forum, Je te joins le fichier regarde en feuil2 j'ai essayé d'appliquer ta formule sur mon fichier perso mais elle ne fonctionne qu'en partie. D'autre part est-il possible de supprimer après avoir exécuter la macro les lignes en...

Re : besoin des meilleurs VB istes du forum Bonsoir Hervé, tu as très bien compris ce que je voulais obtenir malgré mes informations un peu scabreuses. VBA impéccable. Juste une petite erreur sur la ligne 55 du service 12, nous devrions obtenir 250 au lieu de 375 mais sinon fonctionne très...

Re : besoin des meilleurs VB istes du forum bonsoir Staple1600 et le forum, Je vais essayer de t'expliquer. la ligne 1 correspond a des dates dans le tableau en colonne 1 cellules A2:A13 correspondent a une liste de services. La cellule A14:a19 correspondent a deux services séparées par une...

bonjour a tous et le forum, je sollicite votre aide pour un problème un peu compliqué à expliquer. je vous joins un fichier exemple. le 1er tableau correspond a une extraction, le 2ème ce que je souhaiterais. en espérant que cela soit possible, en attendant merci par avance.