142 résultats trouvés

par belkacem64
18 juin 2019, 18:36
Forum : Excel - VBA
Sujet : Fonction Find et FindNext
Réponses : 5
Vues : 190

Re: Fonction Find et FindNext

Salut .


- 1 ) Ajouter une TextBox7 .

- 2 ) Ajouter cette ligne à l'événement : ListBox1_Click

Me.TextBox7 = Application.WorksheetFunction.CountIf(Range("A:A"), Me.ListBox1.Text)
par belkacem64
14 juin 2019, 22:34
Forum : Excel - VBA
Sujet : Simplification de codes
Réponses : 2
Vues : 118

Re: Simplification de codes

Salut .
Un essai à tester :


Range("B2:H2").Merge
Range("B2:H2").Borders.LineStyle = xlContinuous
par belkacem64
30 mars 2018, 12:12
Forum : Excel - VBA
Sujet : Fusionner plusieurs feuilles sur une seule
Réponses : 22
Vues : 2277

Re: Fusionner plusieurs feuilles sur une seule

Salut Essayez ce code Sub iCopy() Dim sh As Worksheet, i As Integer For Each sh In ThisWorkbook.Sheets For i = 11 To sh.Range("B" & Rows.Count).End(xlUp).Row If Not sh.Name = "Synthese" Then sh.Cells(i, 2).Resize(1, 8).Copy _ Sheets("Synthese").Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1) ...
par belkacem64
22 décembre 2016, 00:06
Forum : Excel - VBA
Sujet : Affichage 3 ou 4 grandes valeurs
Réponses : 3
Vues : 225

Re: Affichage 3 ou 4 grandes valeurs

Salut essai Sub Macro2() Dim Lr As Long, i As Long, x As Long, C x = 0 Lr = Cells(Rows.Count, "G").End(xlUp).Row Range("H1:I" & Lr).ClearContents C = WorksheetFunction.Max(Range("G1:G" & Lr)) For i = 1 To Lr If Cells(i, "G") = C Then x = x + 1 Cells(x, 8) = C Cells(x, 9) = Cells(i, 1) End If Next En...
par belkacem64
16 décembre 2016, 14:55
Forum : Excel - VBA
Sujet : Calcul sur une liste deroulante
Réponses : 6
Vues : 215

Re: Calcul sur une liste deroulante

Salut
Est-ce que cela vous convient

==========================

je pense que j'ai mal compris la question :oops:
par belkacem64
15 décembre 2016, 20:42
Forum : Excel - VBA
Sujet : VBA : Suivre un lien vers autre onglet
Réponses : 7
Vues : 602

Re: VBA : Suivre un lien vers autre onglet

Re Ce code insère un lien hypertexte à tous les feuilles Est-ce que cela vous convient Sub Bouton1_Clic() Dim i As Integer For i = 1 To Sheets.Count Cells(i, 2) = Sheets(i).Name Cells(i, 2).Select Cells(i, 2).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(CStr(Cells(i, 2)))....
par belkacem64
15 décembre 2016, 19:54
Forum : Excel - VBA
Sujet : VBA : Suivre un lien vers autre onglet
Réponses : 7
Vues : 602

Re: VBA : Suivre un lien vers autre onglet

bonsoir

Le code fonctionner d'une façon normal
Pourquoi ne pas utiliser
Sub Bouton1_Clic()
    Sheets("Feuil2").Select
End Sub
par belkacem64
12 décembre 2016, 22:36
Forum : Excel - VBA
Sujet : nombre d'occurence dans classeur
Réponses : 5
Vues : 301

Re: nombre d'occurence dans classeur

Salut
essayer ce code :
Sub Recherche()

    Dim sh As Worksheet, x As Integer
    For Each sh In Sheets
    If CStr(sh.Range("A6")) = "pierre" Then x = x + 1
    Next
    MsgBox x

End Sub
par belkacem64
8 décembre 2016, 19:05
Forum : Excel - VBA
Sujet : Agréger les données de plusieurs feuilles automatiquement
Réponses : 3
Vues : 554

Re: Agréger les données de plusieurs feuilles automatiquemen

Salut
vous pouvez ajouter des feuilles quel que soit le nom dans la linge suivante et de la même façon d'écriture :
le nom du feuilles entre 2 guillemets ""
For Each SH In Sheets(Array("Client 1", "Client2", "Client 3"))