3844 résultats trouvés

par i20100
9 mai 2017, 18:25
Forum : Excel - VBA
Sujet : Macro envoi mails
Réponses : 23
Vues : 649

Re: Macro envoi mails

je reprend au complet, Sub test() Dim LastRw As Long, i As Long LastRw = Sheets("Feuil1").Cells(Rows.Count, 2).End(xlUp).Row For i = 4 To LastRw Envoyer_Mail_Outlook Sheets("Feuil1").Range("B" & i), Sheets("Feuil1").Range("C" & i) Next End Sub Function Envoyer_Mail_Outlook(dest As String, fich As St...
par i20100
9 mai 2017, 18:11
Forum : Excel - VBA
Sujet : VBA - Copier Coller vers tableau selon différents critères
Réponses : 4
Vues : 255

Re: VBA - Copier Coller vers tableau selon différents critèr

Bonjour, Sub tranfert() Dim sh1, sh2, LaDate As Double Dim Etudiant As String, Matière As String, t As String Set sh1 = Sheets("Feuil1") Set sh2 = Sheets("Feuil2") LaDate = DateSerial(Year(sh1.Cells(6, 9)), Month(sh1.Cells(6, 9)), 1) Etudiant = sh1.Cells(8, 9) Matière = sh1.Cells(10, 9) t = "Match("...
par i20100
9 mai 2017, 17:30
Forum : Excel - VBA
Sujet : Copier lignes d'un tableau x fois dans une nouvelle feuille
Réponses : 2
Vues : 109

Re: Copier lignes d'un tableau x fois dans une nouvelle feui

Bonjour, Sub Macro1() Dim sh1, sh2 Dim LastRw1 As Long, LastRw2 As Long, i As Long, n As Integer Set sh1 = Sheets("Feuil1") Set sh2 = Sheets("Feuil2") LastRw1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row LastRw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1 For i = 2 To LastRw1 n = Int(sh1.Cells(i, 10)) ...
par i20100
9 mai 2017, 16:55
Forum : Excel - VBA
Sujet : Macro envoi mails
Réponses : 23
Vues : 649

Re: Macro envoi mails

remplacer
For i = LastRw To Sheets("Feuil1").Cells(Cells.Count, 2).End(xlUp).Row
par
For i =4 to  LastRw
par i20100
9 mai 2017, 16:47
Forum : Excel - VBA
Sujet : Variable et tri date compris entre
Réponses : 7
Vues : 347

Re: Variable et tri date compris entre

le filtre est bien actif avant l'exécution de la macro ?
ActiveSheet.ListObjects("Tableau_Lancer_la_requête_à_partir_de_LOCATION").ShowAutoFilter = True
par i20100
9 mai 2017, 02:17
Forum : Excel - VBA
Sujet : N ième valeur non nulle d'une plage de cellule (colonne)
Réponses : 2
Vues : 365

Re: N ième valeur non nulle d'une plage de cellule (colonne)

Bonjour,

je vous propose une function perso, à copier sur un Module
Function Nvaleur(N As Integer, plage As Range)
For Each c In plage
  If c <> Empty Then
   v = v + 1
   If v = N Then Nvaleur = c
  End If
Next
End Function
sur la feuille de calcul
=Nvaleur(2;$A$1:$A$100)
=Nvaleur(6;$A$1:$A$100)
par i20100
8 mai 2017, 20:20
Forum : Excel - VBA
Sujet : pour valider des chiffres a la place des lettres code vba
Réponses : 3
Vues : 153

Re: pour valider des chiffres a la place des lettres code vb

Bonjour, Key:= Cells(6, 5) .SetRange .Range(.Cells(6, 1), .Cells(6, 50000)) il y mois de risque d'erreur comme ceci: LastRw = Cells(Rows.Count, 1).End(xlUp).Row Range(Cells(5, 1).Address, Cells(LastRw, 6).Address).Select With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort .SortFields.Clear .SortFi...
par i20100
8 mai 2017, 18:04
Forum : Excel - VBA
Sujet : Remplissage automatique d'un tableau de dilution.
Réponses : 6
Vues : 263

Re: Remplissage automatique d'un tableau de dilution.

Bonjour,

je vous propose une autre solution,
par i20100
8 mai 2017, 17:40
Forum : Excel - VBA
Sujet : [Excel 2010] Userform et tableau excel
Réponses : 10
Vues : 204

Re: [Excel 2010] Userform et tableau excel

Bonjour, Petite question en même temps, j'ai créé un code pour séparer sur mon tableau le code bar en 2 colonnes avec Gauche et Droite. Vous pensez que c'est réalisable de l'intégrer direct en vba ? Ça éviterait des formules dans le tableau voilà, Private Sub CmbAjouter_Click() Dim codebar As ComboB...
par i20100
8 mai 2017, 01:26
Forum : Excel - VBA
Sujet : Archivage
Réponses : 5
Vues : 240

Re: Archivage

Bonjour, Sub Macro1() Dim sh1, sh2, j As Integer, n As Long Set sh1 = Sheets("Données") Set sh2 = Sheets("MoisCourant") j = Day(sh1.Range("C1")) n = Application.Match(sh1.Range("C1"), sh2.Range("A:A"), 0) + 2 sh2.Range(sh2.Cells(n, 1), sh2.Cells(n, 28)).Value = sh1.Range(sh1.Cells(30, 2), sh1.Cells(...