500 résultats trouvés

par pierre.jy
14 août 2017, 20:03
Forum : Excel - VBA
Sujet : copier une 2 feuilles d'un fichier fermé dans un fichier ou
Réponses : 13
Vues : 371

Re: copier une 2 feuilles d'un fichier fermé dans un fichie

Et il donc c'est lequel le fichier que tu n'ouvre pas, il semble bien que tu ouvre les 2 dans ce dernier descriptif ?
par pierre.jy
14 août 2017, 19:43
Forum : Excel - VBA
Sujet : copier une 2 feuilles d'un fichier fermé dans un fichier ou
Réponses : 13
Vues : 371

Re: copier une 2 feuilles d'un fichier fermé dans un fichie

Bonjour,

et pourquoi tu ne veux pas l'ouvrir ce fichier ??? c'est comme je veux rentrer dans ma maison sans ouvrir la porte ...
par pierre.jy
6 août 2017, 07:53
Forum : Excel - VBA
Sujet : Afficher les 3 autres feuilles à l'ouverture du fichier
Réponses : 3
Vues : 144

Re: Afficher les 3 autres feuilles à l'ouverture du fichier

Bonjour,

montre nous tes "autres private"' que l'on comprenne de quel conflit il s'agit ...!
par pierre.jy
28 juin 2017, 19:21
Forum : Excel - VBA
Sujet : Passage en majuscule d'une lettre sur deux dans un texte
Réponses : 9
Vues : 248

Re: Passage en majuscule d'une lettre sur deux dans un texte

Bjr, tiens une autre version en utilisant Mid de façon qui peu sembler particulière ..: Sub UneLettreSurDeux() Dim st As String Dim i As Integer st = LCase(Feuil1.Range("A1")) For i = 1 To Len(st) Step 2 If (i Mod 2) <> 0 Then Mid(st, i, 1) = UCase(Mid(st, i, 1)) Next Feuil1.Range("A1") = st End Sub...
par pierre.jy
25 juin 2017, 20:33
Forum : Excel - VBA
Sujet : Utiliser =CAR(x)
Réponses : 3
Vues : 322

Re: Utiliser =CAR(x)

Bonjour, il s'agit des codes ASCII , certains n'ont pas de représentation graphique .. et servent pour la communication par exemple ...: https://fr.wikipedia.org/wiki/American_Standard_Code_for_Information_Interchange#/media/File:ASCII-Table-wide.svg https://fr.wikipedia.org/wiki/American_Standard_C...
par pierre.jy
25 juin 2017, 20:26
Forum : Excel - VBA
Sujet : compter cellules fusionnees
Réponses : 4
Vues : 360

Re: compter cellules fusionnees

Bonjour, pas vraiment utile le fichier ....et le message précédent aussi... tu crée une fonction personnalisé (dans un module standard VBA) ' ' Nombre valeur nonVide d'une plage ( même fusionnée) ' Function NbValNonVide(r As Range) As Long Application.Volatile Dim i As Long Dim c As Range For Each c...
par pierre.jy
18 juin 2017, 11:53
Forum : Excel - VBA
Sujet : Lien cellule dans pied de page
Réponses : 8
Vues : 174

Re: Lien cellule dans pied de page

Bonjour,

si tu ne précise pas le "parent" d'un objet , c'est celui par défaut qui est pris ( cellule active, feuille active, classeur actif ...) pour PageSetup précise la feuille concernée...
en précédant PAgeSetup de :l
ThisWorkBook.Sheets(numero).
par pierre.jy
10 juin 2017, 20:39
Forum : Excel - VBA
Sujet : 2cellules égales si valeur de l'une change selon formule
Réponses : 13
Vues : 251

Re: 2cellules égales si valeur de l'une change selon formule

j'ai bcp de cellules cibles, au moins une vingtaines.. .... On peut effectivement utiliser l'évènement calculate qui se déclenchera lors de recalculs (faisant éventuellement varier les résultats des formules), mais je ne le conseille jamais dans un tel cas car justement on ne peut pas cibler, et ch...
par pierre.jy
10 juin 2017, 12:47
Forum : Excel - VBA
Sujet : 2cellules égales si valeur de l'une change selon formule
Réponses : 13
Vues : 251

Re: 2cellules égales si valeur de l'une change selon formule

Bonjour,

utilise l'événement calculate ...

Private Sub Worksheet_Calculate()

End Sub
par pierre.jy
5 juin 2017, 19:03
Forum : Excel - VBA
Sujet : Transférer tout un ListBox dans une seule cellule
Réponses : 17
Vues : 280

Re: Transférer tout un ListBox dans une seule cellule

bonsoir,

essai :
   Dim st As String
   Dim i As Integer
   
   For i = 0 To ListBox1.ListCount
     st = st & Me.ListBox1.List(I) & vbLf
   Next
Sheets("BASE").Range("A2").Value .Value = st