Forums XLPages

Tous les messages (Mytå)

« 1 ... 6 7 8 9 10 11 12 ... 18 »
Re: Afficher un texte à la verticale dans une TextBox
#81
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 24-03-2012 22h19
 Salut le forum

On peut le faire avec la propriété MultiLine du TextBox à True.

Code appelant
TextBox1.Text = Vertic("Salut")

Et avec une fonction de avigeilpro 
Public Function Vertic(T As String) As String
Dim TFinal As String
Dim I As Integer
TFinal = Left(T, 1)
For I = 2 To Len(T)
TFinal = TFinal & vbCrLf & Mid(T, I, 1)
Next
Vertic = TFinal
End Function

Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: ecart suite Jean-Marie
#82
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 22-03-2012 11h51
 Salut le forum

Mahelnawe, merci de poursuivre à la suite de la discussion d'origine.

Référence de la ficelle : Ecart

Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: afficher des valeurs (texte) selon plusieurs conditions (texte et nombre)
#83
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 22-03-2012 11h45
 Re le forum

Tu as un résultat de zéro car la cellule ne contient aucune valeur.(Cellule vide)

Pour définir tes plages, regarde avec la fonction Decaler c'est plus pratique.

Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: afficher des valeurs (texte) selon plusieurs conditions (texte et nombre)
#84
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 22-03-2012 03h13
 Salut le forum

Pour commencer Florian Caillet a le numéro 8903934 et non 8905294

Ta formule matricielle en B8 ne récupère pas la bonne colonne
=INDEX(Mat_equip!L2:L91;EQUIV(1;(Mat_equip!A2:A91=A2)*(Mat_equip!E2:E91=B2)*(Mat_equip!I2:I91=A6)*(Mat_equip!K2:K91=A8);0);1)
Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: extraire une chaine de caratères contenue dans un texte
#85
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 21-03-2012 11h56
 Salut le forum

En F3 à recopier vers le bas
 =STXT($D3;TROUVE("Dossier";$D3);14)
Mytå

Edité par Mytå le 21/03/2012 16:42:47
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: vba : jointure pour creation feuille 3 avec donnees de 2 feuilles
#86
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 16-03-2012 02h35
 Salut le forum

Solution proposée sur un autre forum, et Olives qui ne la pas signalée.
Sub test()
Dim i As Long, j As Long, k As Long, Col As Long, Code As Long
    j = 2
    With Sheets("feuil1")
        For i = 2 To .Range("A65536").End(xlUp).Row
            Code = .Cells(i, 1).Value
            Sheets("Feuil3").Range("A" & j).Value = Code
            Sheets("Feuil3").Range("B" & j).Value = .Cells(i, 2).Value
            If Application.CountIf(Sheets("feuil2").Range("A1:A65536"), Code) > 0 Then
                Col = 3
                For k = 2 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
                    If Sheets("Feuil2").Range("A" & k).Value = Code Then
                        Sheets("feuil3").Cells(j, Col).Value = Sheets("Feuil2").Range("B" & k).Value
                        Sheets("feuil3").Cells(j + 1, Col).Value = Sheets("Feuil2").Range("C" & k).Value
                        Col = Col + 1
                    End If
                Next k
                j = j + 2
            Else
                j = j + 1
            End If
        Next i
    End With
End Sub
Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: trie par date
#87
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 15-03-2012 00h47
 Re le forum

Pour afficher les distances en mètres

1250 = 1 250 m utilise un format personnalisé # ##0\ "m"

Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: interdiction de turf.fr
#88
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 15-03-2012 00h40
Re le forum

Même si je te fournissais la fonction d'épurage, encore faudrait-il que tu sois capable
de programmer un peu en VBA afin de faire les modifications.

Google est ton ami : Encodage URL

Mytå
Edité par Mytå le 15/03/2012 03:22:48
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: interdiction de turf.fr
#89
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 15-03-2012 00h08
Re le forum

Il n'y a pourtant pas une grosse modification à apporter au fichier . . . 

Disons simplement une petite fonction d'épurage . . .

Mytå
Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

Re: trie par date
#90
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 14-03-2012 22h29
Salut le forum

Mahelnawe, essaye de joindre une version avec quelques données (Bbidons)

Cela va être plus facile pour te soumettre une solution.

Et n'oublie pas d'indiquer le résultat souhaité, sur la deuxième feuille.

Mytå

Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
 Rapport   Haut 

« 1 ... 6 7 8 9 10 11 12 ... 18 »