Forums XLPages

Tous les messages (Mytå)

« 1 ... 10 11 12 13 14 15 16 ... 18 »
Re: formulation imposible
#121
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 : 29-02-2012 12h32
 Re le forum

Au plaisir d'une prochaine ficelle.

Bonne journée
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: formulation imposible
#122
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 : 29-02-2012 03h18
 Re le forum

Avec une fonction personnalisée

Copie le code suivant dans un module standard
Function SplitTexte(Cellule As Range)
Dim Test As Boolean
Dim Cpt As Integer
Dim Texte As String
Dim Temp As Variant

Application.Volatile

Texte = Trim(Cellule)
Test = IsNumeric(Right(Texte, 1))
Temp = ""

For Cpt = Len(Texte) To 1 Step -1
  If IsNumeric(Mid(Texte, Cpt, 1)) <> Test Or _
    Mid(Texte, Cpt, 1) = " " Then Exit For
    Temp = Mid(Texte, Cpt, 1) & Temp
Next Cpt

Temp = IIf(Test, Val(Temp), Temp)
SplitTexte = Temp

End Function
Tu peux ensuite l'utiliser comme une fonction. (fx)
Tu la retrouve dans les fonctions personnalisées du menu fx
=SplitTexte(A2)
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: cree une importation automatique
#123
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 : 29-02-2012 02h02
salut le forum

Tu as déjà fait la même demande sur la ficelle suivante 

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: Comment insérer et dupliquer des lignes
#124
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 : 29-02-2012 00h35
Re le forum

MyDearFriend , c'est la que l'on voit que chaque programmeur
à une façon différente pour résoudre la problématique.

3 belles solutions pour notre nouvel adepte . . .

En prime choix du nombre de duplication de la ligne
Sub InsertAndCopy()
Dim Ligne As Long
Dim NbLgCpy As Integer

NbLgCpy = Application.InputBox("Nombre de duplication ?", Type:=1)
    If NbLgCpy = False Or NbLgCpy < 0 Then Exit Sub

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * (NbLgCpy + 1) Step NbLgCpy + 1
 
  Rows(Ligne & ":" & Ligne + NbLgCpy - 1).Insert Shift:=xlDown

    With Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5))
        .AutoFill Destination:=.Resize(.Rows.Count + NbLgCpy, .Columns.Count), Type:=xlFillCopy
    End With
   
Next Ligne

End Sub
 Bonne fin de soirée
Mytå


Edité par Mytå le 29/02/2012 01:01:41
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: Ajouter une ligne a intervalle régulier.
#125
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 : 29-02-2012 00h17
Salut le forum

Bardav, je t'ai répondu sur l'autre ficelle.

Je donne quand même une solution pour le faire.
Sub InsertAndCopy()
Dim Ligne As Long

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3
 
  Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown
 
    Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5)).AutoFill _
        Destination:=Range(Cells(Ligne - 1, 1), Cells(Ligne + 1, 5)), _
            Type:=xlFillCopy
           
Next Ligne

End Sub
Ou encore comme ceci
Sub InsertAndCopy()
Dim Ligne As Long

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3
 
  Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown

    With Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5))
        .AutoFill Destination:=.Resize(.Rows.Count + 2, .Columns.Count), Type:=xlFillCopy
    End With
   
Next Ligne

End Sub
Mytå
 
Hors Ligne
 Rapport   Haut 

Re: Comment insérer et dupliquer des lignes
#126
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 : 29-02-2012 00h11
 Salut le forum

Bienvenue Bardav comme nouveau membres

Une façon de le faire
Sub InsertAndCopy()
Dim Ligne As Long

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3
 
  Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown
 
    Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5)).AutoFill _
        Destination:=Range(Cells(Ligne - 1, 1), Cells(Ligne + 1, 5)), _
            Type:=xlFillCopy
           
Next Ligne

End Sub
Ou pour pousser un peu la note
Sub InsertAndCopy()
Dim Ligne As Long

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3
 
  Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown

    With Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5))
        .AutoFill Destination:=.Resize(.Rows.Count + 2, .Columns.Count), Type:=xlFillCopy
    End With
   
Next Ligne

End Sub
Mytå
Hors Ligne
 Rapport   Haut 

Re: renseignement recup geny
#127
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 : 28-02-2012 22h52
 Salut le forum

Comme MyDearFriend, je n'ai aucun problème pour extraire les trois colonnes.

Mytå

P.S. Testé sous Excel 2003 et 2007
Hors Ligne
 Rapport   Haut 

Re: formulation imposible
#128
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 : 28-02-2012 22h45
Re le forum

Citation :
Mytå a demandé : Ton texte contient des espace ...
 Citation :
Mahelnawe a répondu : Non pas d'espace ...

Et dans le fichier joint, bizarrement il y a des espaces.

Merci de donner plusieurs exemples de textes possibles avec les résultats escomptés.

Mytå
Hors Ligne
 Rapport   Haut 

Re: ecrit plus simplement cette formul
#129
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 : 28-02-2012 18h17
Re le forum

Il suffit de modifier la référence de la cellule,

remplace $C$25 par $C25 (On gèle la colonne mais pas la ligne)

On peut modifier une référence en utilisant la touche « F4 »



Mytå


Edité par Mytå le 28/02/2012 22:40:14
Hors Ligne
 Rapport   Haut 

Re: Userform vers un tableau
#130
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 : 28-02-2012 01h32
Salut le Forum

Bienvenue, Rémi comme nouveau membres.

Citation :
Rémi a écrit :
Pour une compréhension plus complète vous trouverez en pièce jointe mon fichier simplifié.

Désolé mais ton fichier n'est pas passé.

Mytå
Hors Ligne
 Rapport   Haut 

« 1 ... 10 11 12 13 14 15 16 ... 18 »