1117 résultats trouvés

par archer
17 juin 2019, 12:33
Forum : Excel - VBA
Sujet : Passer d'une cellule à l'autre en VBA
Réponses : 4
Vues : 18

Re: Passer d'une cellule à l'autre en VBA

Bonjour a voir pour le principe et a toi de faire le reste Sub Efface() Feuil1.Unprotect Cells.Locked = True Range("D2:F2").ClearContents Range("D2:F2").Locked = False Range("I2:R2").ClearContents Range("I2:R2").Locked = False Range("D4:F4").ClearContents Range("D4:F4").Locked = False Feuil1.Protect...
par archer
14 juin 2019, 11:31
Forum : Excel - VBA
Sujet : Gestion de la touche "Retour en arrière" dans une TextBox
Réponses : 3
Vues : 45

Re: Gestion de la touche "Retour en arrière" dans une TextBox

Bonjour pour la gestion des date mettre un KeyUp a voir Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode < 96 Or KeyCode > 105 Then If TextBox1 <> "" Then TextBox1 = Left(TextBox1, Len(TextBox1) - 1) End If Select Case Len(TextBox1.Text) Case 2: I...
par archer
11 juin 2019, 11:44
Forum : Excel - VBA
Sujet : Pb affichage listview
Réponses : 8
Vues : 78

Re: Pb affichage listview

Bonjour
on trouve pas de listview dans ton fichier ? dur dur
A+
Maurice
par archer
6 juin 2019, 21:37
Forum : Excel - VBA
Sujet : Formulaire de résa - Problème de compilation
Réponses : 3
Vues : 36

Re: Formulaire de résa - Problème de compilation

Bonsoir
une dernier compatible tout excel
Range("D" & Rows.Count).End(xlUp).Row + 1
A+
Maurice
:btres:
par archer
6 juin 2019, 21:00
Forum : Excel - VBA
Sujet : Formulaire de résa - Problème de compilation
Réponses : 3
Vues : 36

Re: Formulaire de résa - Problème de compilation

Bonsoir a tester Private Sub CommandButton1_Click() If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then MsgBox ("Veuillez remplir tous les champs") Exit Sub End If dlt = Range("d1048576").End(xlUp).Row + 1 Range("b" & dlt) = TextBox1 Range("c" & dlt) = TextBox...
par archer
4 juin 2019, 20:58
Forum : Excel - VBA
Sujet : Copier / Coller sans formules
Réponses : 7
Vues : 53

Re: Copier / Coller sans formules

Bonsoir
a toi de modifier la macro
Exemple
Sub Macro1()
    Range("D5:E186").Copy
    Range("G5").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.Goto [A1], True
End Sub
A+
Maurice
:btres:
par archer
31 mai 2019, 11:31
Forum : Excel - VBA
Sujet : Export en PDF avec choix du répertoire d'enregistrement
Réponses : 4
Vues : 40

Re: Export en PDF avec choix du répertoire d'enregistrement

Bonjour
tu change le chemin
            chemin = .SelectedItems(1) & "\"
A+
Maurice
:btres:
par archer
29 mai 2019, 20:56
Forum : Excel - VBA
Sujet : Inversion de sens d'une colonne
Réponses : 12
Vues : 1393

Re: Inversion de sens d'une colonne

Bonsoir pour les 3 colonne a voir Sub Inverse() Range("E:G").EntireColumn.Clear Nl = Cells(Rows.Count, 1).End(xlUp).Row D = 1 For L = Nl To D Step -1 Range("E" & D) = Range("A" & L) D = D + 1 Next L Nl = Cells(Rows.Count, 2).End(xlUp).Row D = 1 For L = Nl To D Step -1 Range("F" & D) = Range("B" & L)...
par archer
29 mai 2019, 15:08
Forum : Excel - VBA
Sujet : Extraire chaine de caractère entre autres caractères
Réponses : 7
Vues : 55

Re: Extraire chaine de caractère entre autres caractères

Bonjour
peux etre par macro
A voir
Sub Test()
    For L = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Var = Right(Range("A" & L), 12)
        Range("B" & L).Value = Val(Var)
    Next
End Sub
A+
Maurice
:btres:
par archer
29 mai 2019, 12:40
Forum : Excel - VBA
Sujet : Retourner en haut de feuille à l'ouverture
Réponses : 17
Vues : 109

Re: Retourner en haut de feuille à l'ouverture

Bonjour
peux être comme ca
Application.Goto Range("A1"), True
A+
Maurice
:btres: