9269 résultats trouvés

par dubois
9 août 2012, 17:01
Forum : Excel - VBA
Sujet : Petanque -modif/ajout pour concours Vétéran
Réponses : 2
Vues : 770

Re: Petanque -modif/ajout pour concours Vétéran

Bonjour à tous, Cette variante est prévue dans la version "Pétanque Mélée_V002.xls" Au moment de l'inscription pour un nouveau concours, si tu as choisi "Doublette", tu as 2 colonnes à remplir, il te suffit de placer les filles dans la colonne de droite (par exemple) Ceci est valable pour les équipe...
par dubois
7 août 2012, 21:03
Forum : Excel - VBA
Sujet : Factures-Offres avec listes déroulantes
Réponses : 22
Vues : 1293

Re: Factures-Offres avec listes déroulantes

Bonsoir Gaiiil, à tous,

T'aider, oui, mais faire du clés en main , non !
Je pense que tu n'es pas prêt à mener un tel projet.
et de mon coté, je n'ai pas envie de le faire.

De plus, tu envoie un fichier avec des feuilles vides, "démerde-toi !"
désolé, j'abandonne.

Amicalement
Claude
par dubois
6 août 2012, 20:38
Forum : Excel - VBA
Sujet : inventaire d'un stock par code barre
Réponses : 6
Vues : 10832

Re: inventaire d'un stock par code barre

Bonsoir à tous,

sonolens,
ouvre un poste à ton nom, celui-ci est résolu par l'auteur,
en joignant un fichier à ta demande.

Amicalement
Claude
par dubois
6 août 2012, 20:09
Forum : Excel - VBA
Sujet : Copier coller une partie de colonne en VBA
Réponses : 6
Vues : 616

Re: Copier coller une partie de colonne en VBA

Bonsoir à tous, J'ai compris le contraire (feuilles), tu peux mettre le bouton sur n'importe quelle feuille. Sub AjouteColonne() Dim cL& With Sheets("base de données") cL = .Cells(4, Columns.Count).End(xlToLeft).Column If .Cells(4, cL) = Date Then Exit Sub 'évite doublon date Sheets("Calcul").Range(...
par dubois
5 août 2012, 22:54
Forum : Excel - VBA
Sujet : Trouver des lignes d'une base de données selon critères
Réponses : 6
Vues : 1028

Re: Trouver des lignes d'une base de données selon critères

Bonsoir à tous, salut Tulipe, solution avec un filtre élaboré code dans le VBE de la feuille "Recherche" Private Sub Worksheet_Change(ByVal Target As Range) Dim Lg& If Not Application.Intersect(Target, Range("b5:f5")) Is Nothing Then Application.ScreenUpdating = False With Sheets("Base") Lg = .Range...
par dubois
4 août 2012, 20:54
Forum : Excel - VBA
Sujet : Supprimer les doublons dans une table
Réponses : 3
Vues : 478

Re: Supprimer les doublons dans une table

Bonsoir à tous, salut cousinhub, ou alors la macro classique Sub FiltreDoublons() Dim Lg& Application.ScreenUpdating = False Lg = Range("o" & Rows.Count).End(xlUp).Row Range("z72") = "=o73<>0" 'critère de filtre Range("o72:o" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("z71:z7...
par dubois
2 août 2012, 21:43
Forum : Excel - VBA
Sujet : filtre avancé avec des zones de critère séparées ?
Réponses : 17
Vues : 1400

Re: filtre avancé avec des zones de critère séparées ?

Bonsoir à tous, salut Nad, Possible mais pas pratique ! si tu n'entre pas les 3 critères exacts, rien ne s'affiche Sub Filtre() Dim Lg& Lg = Range("a" & Rows.Count).End(xlUp).Row Range("k2") = "=AND(L2=$b$5,n2=$b$7,p2=$b$9)" 'critères Range("L1:p" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaR...
par dubois
1 août 2012, 11:40
Forum : Excel - VBA
Sujet : calculer CA par département / région
Réponses : 2
Vues : 471

Re: calculer CA par département / région

Bonjour,

avec SOMMEPROD(....
çà devrait le faire, envoie un fichier pour régler

Amicalement
Claude
par dubois
31 juillet 2012, 20:45
Forum : Excel - VBA
Sujet : Créer séparation automatique entre les mois [RESOLU]
Réponses : 9
Vues : 874

Re: Créer séparation automatique entre les mois

Bonsoir à tous, En supposant que les dates soient triées Sub Separe() Dim Lg&, i& Application.ScreenUpdating = False Lg = Range("a" & Rows.Count).End(xlUp).Row For i = Lg To 2 Step -1 If IsDate(Range("a" & i - 1)) And IsDate(Range("a" & i)) Then If Month(Range("a" & i - 1)) < Month(Range("a" & i)) T...
par dubois
13 juin 2012, 12:40
Forum : Excel - VBA
Sujet : Tri données
Réponses : 3
Vues : 184

Re: Tri données

Bonjour; Une façon de faire, avec en prime un tri Sub SansDoublons() Dim Lg& Application.ScreenUpdating = False Lg = Range("a" & Rows.Count).End(xlUp).Row Range("g1") = Range("a1") Range("a1:a" & Lg) _ .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("g1"), Unique:=True Range("g1") = "Noms s...