990 résultats trouvés

par oyobrans
19 juillet 2019, 18:13
Forum : Excel - VBA
Sujet : Faciliter les mises en forme ?
Réponses : 2
Vues : 34

Re: Faciliter les mises en forme ?

Bonjour,

Proposition en PJ.
par oyobrans
19 juillet 2019, 11:13
Forum : Excel - VBA
Sujet : Merge Aera
Réponses : 3
Vues : 45

Re: Merge Aera

Bonjour, Une proposition : Sub Bouton2_Cliquer() Dim i%, c As Range, ch$ Set c = Range("C1") If Not c Is Nothing Then If c.MergeCells Then For i = 0 To c.MergeArea.Columns.Count - 1 ch = ch & IIf(Len(ch) > 0, vbCrLf, "") & c.Offset(1, 0).Offset(0, i).Value Next i MsgBox ch End If End If End Sub
par oyobrans
12 juillet 2019, 12:18
Forum : Excel - VBA
Sujet : Date et heure lors de la saisie d'une Cellule
Réponses : 3
Vues : 32

Re: Date et heure lors de la saisie d'une Cellule

Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("E6")) Is Nothing And Target.Count = 1 Then
        Target.Offset(0, 1) = Now
    End If
End Sub
par oyobrans
11 juillet 2019, 11:58
Forum : Excel - VBA
Sujet : Soucis fonction INDEX EQUIV
Réponses : 5
Vues : 49

Re: Soucis fonction INDEX EQUIV

Bonjour,
=INDEX($C$20:$P$20;EQUIV(B2;$B$20;0);EQUIV(A2;$C$19:$P$19;0))
Le premier EQUIV concerne la ligne, le second la colonne, tu avais fait l'inverse.
À noter que comme il n'y a qu'une ligne, EQUIV(B2;$B$20;0) va toujours renvoyer 1.
par oyobrans
10 juillet 2019, 13:52
Forum : Excel - VBA
Sujet : Incrémentation de X pour cellules fusionnées
Réponses : 2
Vues : 37

Re: Incrémentation de X pour cellules fusionnées

Bonjour,

Avec ceci ?
=DECALER($D$3;0;(COLONNE()-4)*3)
Le 4 pour le numéro de colonne dans laquelle débutent les fusions (ici D).
par oyobrans
4 juillet 2019, 14:29
Forum : Excel - VBA
Sujet : Calcul sur excel
Réponses : 3
Vues : 57

Re: Calcul sur excel

Bonjour,
=SOMME.SI.ENS(B2:B13;A2:A13;">=01/08/2019";A2:A13;"<01/08/2020")
par oyobrans
4 juillet 2019, 09:19
Forum : Excel - VBA
Sujet : Extraction d'une variable tableau
Réponses : 5
Vues : 94

Re: Extraction d'une variable tableau

Bonjour,

Peux-tu joindre un fichier illustrant ce que tu veux obtenir ?
Il vaudrait mieux simplement parcourir le tableau pour en récupérer la plus grande valeur plutôt que créer une usine à gaz.
par oyobrans
1 juillet 2019, 22:43
Forum : Excel - VBA
Sujet : Extraction d'une variable tableau
Réponses : 5
Vues : 94

Re: Extraction d'une variable tableau

Bonsoir,
Public Sub Extraire()
    Dim i%
    For i = 10 To 20
        XXX = toto(i)
    Next i
End Sub
par oyobrans
30 juin 2019, 11:58
Forum : Excel - VBA
Sujet : Formule vec Case a cocher
Réponses : 2
Vues : 67

Re: Formule vec Case a cocher

Bonjour,

Remplace E39="VRAI" par E39.
Et en D40, fais juste la somme, pas besoin de condition.
par oyobrans
12 juin 2019, 15:45
Forum : Excel - VBA
Sujet : Userform bug '13' incompatibilité type
Réponses : 18
Vues : 179

Re: Userform bug '13' incompatibilité type

Il faut que tu remplaces End("A65") par End(xldown).