Forums XLPages

Tous les messages (Eric)

« 1 ... 9 10 11 12 13 14 »
Re: Répartir des informations à partir d'un compteur
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 30-07-2011 12h10
Bonjour à tous
Bonjour Titom

Une petite explication du code :

Sub copie_sur_Feuil2()
'déclaration des variables
Dim a As Integer  'ou long si a>32 767 (dans le cas présent plus de 98301 lignes)
Dim i As Integer  'ou long si + de 32 767 lignes
Dim derlign As Integer 'ou long si + de 32 767 lignes
Dim tablo() 'déclaration d'une variable tableau

derlign = Sheets("Feuil1").Range("a65536").End(xlUp).Row    'récupération de la derlign de la colonne "A"
ReDim tablo(derlign, 2) 'redimensionnement de "tablo" en bidimensionnel
For i = 1 To derlign Step 3 'boucle de lecture de la colonne "A" avec un pas de trois
    tablo(a, 0) = Cells(i, 1)   'affectation de la valeur de la cellule (i,1) à tablo(a, 0)
    tablo(a, 1) = Cells(i + 1, 1)   ' ..... i+1
    tablo(a, 2) = Cells(i + 2, 1)   ' ..... i+2
    a = a + 1   'on incrémente "a" de 1
Next i

Sheets("Feuil2").Range("a1:c" & derlign / 3) = tablo()  'copie de "tablo" sur la feuille 2
' derlign / 3 => dans ce cas derlign est un multiple de 3

End Sub

si tu veux +, dis nous

Bon WE à tous

Eric


 
Hors Ligne
Rapport   Haut 

Re: Répartir des informations à partir d'un compteur
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 29-07-2011 20h01
Bonsoir à tous
Bonsoir  Titom1978 

Juste pour la partie "copie", essaie ceci :

Sub copie_sur_Feuil2()
Dim a As Integer  'ou long
Dim i As Integer  'ou long
Dim derlign As Integer 'ou long
Dim tablo()

derlign = Sheets("Feuil1").Range("a65536").End(xlUp).Row
ReDim tablo(derlign, 2)
For i = 1 To derlign Step 3
    tablo(a, 0) = Cells(i, 1)
    tablo(a, 1) = Cells(i + 1, 1)
    tablo(a, 2) = Cells(i + 2, 1)
    a = a + 1
Next i

Sheets("Feuil2").Range("a1:c" & derlign / 3) = tablo()  'dans ce cas derlign est un multiple de 3

End Sub


si j'ai compris

Dis nous

Eric








Hors Ligne
Rapport   Haut 

Re: Lancer un mp3 depuis Excel
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 08-06-2010 11h27
Bonjour à tous

Peux tu essayer ceci :

Public Vocal As New SpVoice

Sub Parler(ByVal Phrase As String)
    Application.StatusBar = Phrase
    Vocal.Speak Phrase
End Sub

Sub lire()
Dim i As Integer
Dim mavar As Integer
  For i = 1 To 3
      mavar = Cells(5, i)
      Parler mavar
  Next
End Sub

Eric


 
Hors Ligne
Rapport   Haut 

Re: Find sur cellules avec un format personnalisé
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 17-05-2010 10h41
Re (avec un peu de retard)

En conclusion, voici le code complet (de ma demande) avec la déclaration des variables :

Option Explicit

Sub cherche_max_dans_ligne_5()

Dim c As Range
Dim firstAddress As String
Dim i As Integer
Dim mavar As Integer    'dans ce cas
Dim monadresse As String

mavar = Application.Max(Sheets("Feuil1").Range("d5:iv5"))

With Worksheets("Feuil1").Range("d5:iv5")
    Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
'********************** ce que je cherche
            monadresse = c.Address
            MsgBox monadresse
'**********************
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

pour ceux que cela intéresse. A adapter.

Bonne journée à tous

Eric




Hors Ligne
Rapport   Haut 

Re: Find sur cellules avec un format personnalisé
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 13-05-2010 13h46
Re

Merci pour cette réponse ultra rapide, ainsi que pour l'astuce que je ne connaissais pas (sinon...)

Pour le "...Je me permets d'ajouter aussi qu'un petit effort du côté des déclarations de variable et l'utilisation de Option Explicit n'est jamais un luxe...   .... ", tu as raison,  mais ce que j'ai déposé était un extrait de mon code. Pour ma part le "Option Explicit" est systématique, et m'oblige donc à déclarer les variables, ce que je fais en tête de module et par ordre alphabétique.

Merci encore et bonne fin de journée

Eric

Hors Ligne
Rapport   Haut 

Re: Find sur cellules avec un format personnalisé
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 13-05-2010 11h01
Bonjour à tous
Bonjour MdF
Il est vrai que ce n'était peut-être pas très évident .....
Je recherche l'adresse de la cellule de valeur max, et suivante, dans la ligne qui se compose de cellules avec un (des) format personnalisé.
Dans le code fournit "c" est "Nothing" donc "monadresse=c.address" n'est pas traité.
Pour obtenir le maximum, j'avais opté pour "Application.Large()" car je cherche, avec la boucle "For", le "max" puis le "max-1", puis .... alors que "Application.MAx()" donne que le "max"
J'espère avoir été plus clair
Merci d'avance
Eric





Pièce jointe:
xls find_cel_avec_format_perso.xls   [ Taille: 26.00 Ko - Téléchargements: 243 ]
Hors Ligne
Rapport   Haut 

Find sur cellules avec un format personnalisé
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 13-05-2010 09h57
 Bonjour à tous
Dans une ligne, j'ai, dans des cellules avec des formats personnalisés : "nb : xx" ou "xx fois", xx étant le résultat d'une formule
J'essaie ceci :

Sub essai_cherche_max()
 
For i = 1 To 2
    mavar = Application.Large(Sheets("Feuil1").Range("d5:iv5"), i)
   
    With Worksheets("Feuil1").Range("d5:iv5")
        Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
       
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                  monadresse = c.Address '????????
        'le traitement
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
Next
End Sub

mais cela ne fonctionne pas
Merci d'avance pour le coup de main
Eric


Hors Ligne
Rapport   Haut 

Re: Supprimer UserForm
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 16-03-2010 18h50
Bonsoir à tous
Bonsoir beatbles

Tu peux essayer ceci :
On Error Resume Next
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("vUser")
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("UserForm2")

 
si j'ai bien compris

Eric
Hors Ligne
Rapport   Haut 

Re: Tag pour TextBox
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 22-02-2010 16h12
Bonjour à tous
Bonjour Guy

Je ne sais pas où tu es allé chercher cette propriété, mais le résultat est là. Je te remercie beaucoup pour ce coup de main, cela me permet d'avancer.

Bonne journée  à toi et Bonne fin de journée  à tous

Eric


Hors Ligne
Rapport   Haut 

Re: Tag pour TextBox
Semi pro XLPages

Inscription: 12/06/2008
De Ile de France Sud

Messages: 140

Système d'exploitation:
PC
Version Excel utilisée:
2003 _ 2010
Posté le : 20-02-2010 22h02
Re

C'est exact, il n'y a aucun code, pour une bonne raison, mon fichier est trop gros, et je n'ai pas le temps ce soir de l'alléger. Je l'ai déposé pour avoir un "sous main" sur lequel pouvoir discuter.

Au niveau du type de Shapes cela m'est égal, il n'y aura pas de problème par la suite. Ma préférence irait au msoOLEControlObject (MSForms.TextBox), mais je prendrais ce que tu pourras me proposer. J'étais parti avec des msoTextBox (le plus facile), et puis j'ai tenté avec des msoOLEControlObject (MSForms.TextBox), mais je n'ai rien trouvé.

Ni ce soir, ni demain je ne pourrais pas me connecter, car je prends la route dans 1 heure (ou 2). On est jamais à l'heure dans cette maison

Merci d'avance.

Bonne journée à toi et au Québec, et bonne nuit à plein d'autres

Eric





Hors Ligne
Rapport   Haut 

« 1 ... 9 10 11 12 13 14 »