Recuperer le contenu d'une zone de texte dans une variable

Version imprimable

Voir 40 message(s) de cette discussion en une page

14/05/2009, 09h22
lilp1

Merci, ton premier code marche parfaitement, il effectue bien la recherche sur une seule colonne comme souhaité.
Je te remercie beaucoup de ton aide et du temps que tu m'a consacrer.
14/05/2009, 09h28
casefayere

Bonjour lilp, re le forum,

Tu feras attention quand meme si tu reprends le fichier par la suite, si des feuilles portent le meme nom, ça ne fonctionnera pas à moins de supprimer la feuille au préalable
content de t'avoir rendu service

Bonne journée
14/05/2009, 09h55
lilp1

Une derniere chose, pourrait tu m'indiquer quelle partie de ton code copier les informations sur la nouvelle feuille, car je n'arrive pas a voir. Merci
14/05/2009, 10h03
casefayere

ici tout simplement

Code:

Sheets(nomfeuille).Cells(irow, 1).EntireRow.Value = rc.EntireRow.Value

plutot que de passer par un copy, je dis simplement que la ligne de la feuille active est egale à la ligne de la feuille ecritures

J'ai aussi oublié de te dire que dans le 1er code, il y a es variables qui ne servent à rien et des instructions devenues inutiles,
je les ai enlevées dans le deuxieme code

a +

Oki.
J'ai créer un autre userform avec le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub diffencier_analytique()
'declaration des variables
Dim a As Range, x As Integer, d1 As Integer, firstaddress As String, irow As Integer, nomfeuille As String
'enregistrement du nom de la feuille active dans une variable
nomfeuille = ActiveSheet.Name
'recherche de la valeur 'A' dans la colonne 'E'
With Sheets(nomfeuille)
dl = .Range("e" & Rows.Count).End(xlUp).Row
Set a = .Range("E2:E" & dl).Find("A")
'Emepeche le rafraichissement de l'écran, pour ne pas voir le traitement
Application.ScreenUpdating = False
If a Is Nothing Then MsgBox "Il n'y a pas de comptabilité analytique dans ce journal": Exit Sub
If Not a Is Nothing Then
'création d'une nouvelle feuille et on l'a renomme
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Comptabilié Analytique"
Sheets(nomfeuille).Select
firstaddress = a.Address
irow = 1
For x = 2 To d1
    irow = irow + 1
    Sheets("Comptabilié Analytique").Cells(irow, 1).EntireRow.Value = a.EntireRow.Value
    Set a = .Range("e" & a.Row + 1, "e" & d1).Find("A")
    If a Is Nothing Then
        Exit For
    End If
Next x
.Activate
MsgBox ("Les Journaux Analytiques ont bien été copié")
End If
End With
Application.ScreenUpdating = True
End Sub

Le but de ce code est de copier les lignes ou se trouvent la valeur 'A' dans la colonne 'E' dans une nouvelle feuille, simplement, rien ne se copie.

14/05/2009, 10h32
casefayere

là tu dis

Citation:

copier les lignes ou se trouvent la valeur 'A' dans la colonne 'E' dans une nouvelle feuille, simplement, rien ne se copie.

donc tu veux copier une ligne entiere dans la cellule d'une colonne ?, bizarre

Code:

Sheets("Comptabilié Analytique").Cells(irow, 1).EntireRow.Value = a.EntireRow.Value

Cells(irow, 1) représente au début de ta boucle range("a1"), tu dois mal t'expliquer quelque part
autre chose, je suis un peu miro

Code:

For x = 2 To d1

, j'ai l'impression de voir un 1 et pas un l, vérifies
14/05/2009, 10h41
lilp1

lol tu n'est pas miro c'est plutot moi, c'était bien un "1" et non un "l".
Par contre il faudrait que sa puisse me copier les lignes ou se trouvent la valeur "A" dnas la colonne "E", mais defois j'ai une valeur "A" puis une ou 2 lignes de vide dans la collonne "E" puis une valeur "X", il faudrait que sa puisse me copier les lignes qui suivent la valeur "A" ou la collone "E" est vide car ces lignes sont associés a la ligne de la valeur "A".
Il faudrait en gors, que sa me copier les lignes ou se trouvent la valeur "A" jusqu'a ce qu'il trouvent une autre valeur "X" même si les cellules sont vides, puis que sa passe a une autre cellule ou se trouvent la valeur "A"
Malheureusement, je ne sait pas comment on fait. :s
Oui, j'ai encore bcp de lacune
14/05/2009, 10h53
casefayere

je ne comprends toujours pas

Citation:

me copier les lignes ou se trouvent la valeur "A"

les lignes ou les cellules ?

Citation:

dans la colonne "E",

, on ne copie pas une ligne dans une cellule

Citation:

j'ai une valeur "A" puis une ou 2 lignes de vide dans la collonne "E" puis une valeur "X", il faudrait que sa puisse me copier les lignes qui suivent la valeur "A" ou la collone "E" est vide car ces lignes sont associés a la ligne de la valeur "A".

je ne pourrais répondre que quand tu auras bien spécifié le mot cellule quand c'est cellule ou ligne quand c'est ligne, par exemple "cellule de la colonne A"

Excuses-moi mais là j'ai du mal à capter
14/05/2009, 10h58
lilp1

Enfaite, pour le moment, la recherche s'effectue dans une colonne a savoir la colonne "E", il me recherche la valeur "A" dans cette colonne et me copie la ligne dans une nouvelle feuille.
Simplement de temps en temps il y a une ou plusieurs ligne suivent cette ligne ou dans la colonne "E" il n'y a rien de renseigner. J'aimerais donc que ma recherche me copie la ligne ou se trouvent la valeur "A" dans la colonne "E" ainsi que les quelques lignes suivantes jusqu'a ce qu'ils rencontrent une autre valeur qui est "X". Mais il ne faut pas qu'il me copie toutes les lignes ou se trouvent la valeur "A" ou "" car certaines lignes apres la valeur "X" sont vides aussi mais sont en correspondance avec cette valeur.
J'espere avoir été plus claire
14/05/2009, 11h44
casefayere

excuses-moi lilp mais je n'aurai pas le temps avant ce soir

sois patient

bonne journée

Voir 40 message(s) de cette discussion en une page