Simplifier un code VBA

hypo78 · 18 Janvier 2014

Bonjour à tous,

j'ai un code VBA gracieusement élaboré par Chalet53 qui me permet de faire une recherche dans une colonne.
Lorsque j'ai demandé ce code, la recherche s'effectuait sur une condition -> G
Dans mon utilisation, il faut que je cherche les "G" mais aussi pleins d'autres conditions (GW, GWS, J....)

Comment peut-on écrire OU en VBA plutôt que de faire comme j'ai fait ci dessous

Code:

For i = 7 To derligne
             If Cells(i, col) = "G" Then
             Range("A" & j) = Cells(i, 1)
             j = j + 1
             End If
             Next i
             For i = 7 To derligne
             If Cells(i, col) = "GW" Then
             Range("A" & j) = Cells(i, 1)
             j = j + 1
             End If
             Next i

Merci d'avance

Bebere · 18 Janvier 2014

Re : Simplifier un code VBA

bonjour hypo
avec une boucle i
If Cells(i, col) = "G" or Cells(i, col) = "GW" Then
et il y a aussi elseif,touche F1 appel aide,le curseur sur le mot clé

gilbert_RGI · 18 Janvier 2014

Re : Simplifier un code VBA

hypo78 à dit:
Bonjour à tous,

j'ai un code VBA gracieusement élaboré par Chalet53 qui me permet de faire une recherche dans une colonne.
Lorsque j'ai demandé ce code, la recherche s'effectuait sur une condition -> G
Dans mon utilisation, il faut que je cherche les "G" mais aussi pleins d'autres conditions (GW, GWS, J....)

Comment peut-on écrire OU en VBA plutôt que de faire comme j'ai fait ci dessous

Code:

For i = 7 To derligne If Cells(i, col) = "G" Then Range("A" & j) = Cells(i, 1) j = j + 1 End If Next i For i = 7 To derligne If Cells(i, col) = "GW" Then Range("A" & j) = Cells(i, 1) j = j + 1 End If Next i

Merci d'avance

Bonjour

comme ceci peut-être

rep = Array("G", "GW", "J")
j = 1
derligne = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
For k = 0 To 2
For i = 7 To derligne
If Cells(i, col) = rep(k) Then
Range("A" & j) = Cells(i, 1)
j = j + 1
End If
Next i
Next k

hypo78 · 18 Janvier 2014

Re : Simplifier un code VBA

Re,

merci à tous les 2.
les 2 codes fonctionnent. Pour le code de Gilbert k=0 to 2 correspond aux 3 conditions de Array?

Je vais continuer à abuser de vos connaissances. Dans mon exemple, le résultat de la recherche s'inscrit en cellule A19,A20....
Si mes cellules de destination se trouvent dans un autre classeur je dois le coder comment?

Merci d'avance

gilbert_RGI · 18 Janvier 2014

Re : Simplifier un code VBA

hypo78 à dit:
Re,

merci à tous les 2.
les 2 codes fonctionnent. Pour le code de Gilbert k=0 to 2 correspond aux 3 conditions de Array?

Je vais continuer à abuser de vos connaissances. Dans mon exemple, le résultat de la recherche s'inscrit en cellule A19,A20....
Si mes cellules de destination se trouvent dans un autre classeur je dois le coder comment?

Merci d'avance

oui k = 0 to 2 c'est bien le nombre de valeurs de l'array

pour la seconde question il faut marquer workbook("tartempion").sheets(x).range("A"&j)

x étant le numéro de la feuille
workbook("tartempion") fonctionne s'il est ouvert

hypo78 · 18 Janvier 2014

Re : Simplifier un code VBA

Re,

avant même d'envoyer le résultat de la recherche sur un autre classeur, le code s'arrête là :

Code:

If Cells(i, col) = rep(k) Then

je n'arrive pas à comprendre pourquoi
le code complet :

Code:

Sub ChoixDate()

Dim Annee As Integer

    
'saisie de la date
Application.ScreenUpdating = False: Application.DisplayAlerts = False
saisie_date:
datedesaisie = InputBox(("Saisir la date de la garde que vous souhaitez consulter sous la forme jj/mm/aaaa"))
   
    Annee = Format(datedesaisie, "yyyy")

   

If datedesaisie = "" Then
Exit Sub
End If
If Not IsDate(datedesaisie) Then
        MsgBox "Format de date incorrect !"
        GoTo saisie_date
End If
'ouverture du classeur CDS
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & "CDS " & Annee & ".xlsm"

'ouverture sur le feuille du mois
ActiveWorkbook.Sheets(Format(datedesaisie, "mmmm")).Select

'recherche de la colonne du jour
col = Format(datedesaisie, "dd")
rep = Array("G", "GW", "J", "GWS")

 j = 19
             
             derligne = Sheets(Format(datedesaisie, "mmmm")).Range("A18").End(xlUp).Row
             rep = Array("G", "GW", "J", "GWS")
 For k = 0 To 3
 For i = 7 To derligne
 If Cells(i, col) = rep(k) Then
 Range("A" & j) = Cells(i, 1)
 j = j + 1
 End If
 Next i
 Next k 
 End Sub

Merci

gilbert_RGI · 18 Janvier 2014

Re : Simplifier un code VBA

pourquoi deux array ?

hypo78 · 18 Janvier 2014

Re : Simplifier un code VBA

Re,

c 'est une erreur de copier/coller 😱

hypo78 · 18 Janvier 2014

Re : Simplifier un code VBA

Pour être plus clair :
le code fonctionne lors d'une saisie du jour en F1 (sur le fichier hypo78)
lorsque je pars d'une Userbox sur un classeur pour chercher les données dans un autre çà ne fonctionne plus (GD et CDS 2014)

gilbert_RGI · 18 Janvier 2014

Re : Simplifier un code VBA

col = est en format TXT

alors il faut convertir en nombre

'recherche de la colonne du jour
col = Format(datedesaisie, "dd")
col = CInt(col)

voilà les fichiers avec les modifications

remettre Application.DisplayAlerts = sur false dans le programme j'ai oublié 😎

hypo78 · 18 Janvier 2014

Re : Simplifier un code VBA

Re Gilbert,
trop fort pour moi, çà fonctionne à merveille.
je vais tenter de faire la suite pour importer le résultat directement sur le fichier GD.
encore mille merci.

Peux-tu m'expliquer :

Code:

[a2].Select

Je te tiens informé de la suite.
Bon WE

hypo78 · 18 Janvier 2014

Re : Simplifier un code VBA

Encore moi....

Pour importer dans mon premier classeur j'ai bien trouvé la solution du copier/coller en VBA qui fonctionne, mais comment dire que les cellules de destinations sont dans mon premier classeur (gd) ce qui m'éviterait de créer ces cellules intermédiares contenant le résultat de la recherche (CDS 2014)?

Code:

Range("A" & j) = Cells(i, 1)

en citant mon 1er classeur avec un .activate avant Range(......) mais pour = Cells (i,1) qui correspond à l'autre classeur....

Merci d'avance

Zdz16 · 18 Janvier 2014

Re : Simplifier un code VBA

Bonjour Hypo78;

Il ne serait pas judicieux d'utiliser les capacités d'Excel pour la recherche au lieu de faire des boucles imbriquées.
Essai, d'activer l'enregistrement d'une macro et fait un test de recherche via la fonction recherche d'Excel, Arrêt la macro et consulte le module. Tu as la solution.
Il ne te reste qu'a adapter la macro à tes besoins.

Cordialement

hypo78 · 18 Janvier 2014

Re : Simplifier un code VBA

Bonjour Zdz16,
j'ai déjà essayé avec l'enregistreur de Macro mais sans grosse réussite sur ce point....

gilbert_RGI · 18 Janvier 2014

Re : Simplifier un code VBA

hypo78 à dit:
Re Gilbert,
trop fort pour moi, çà fonctionne à merveille.
je vais tenter de faire la suite pour importer le résultat directement sur le fichier GD.
encore mille merci.

Peux-tu m'expliquer :

Code:

[a2].Select

Je te tiens informé de la suite.
Bon WE

c'est juste pour supprimer la selection précédente .

Simplifier un code VBA

hypo78

XLDnaute Impliqué

Bebere

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

hypo78

XLDnaute Impliqué

gilbert_RGI

XLDnaute Barbatruc

hypo78

XLDnaute Impliqué

gilbert_RGI

XLDnaute Barbatruc

hypo78

XLDnaute Impliqué

hypo78

XLDnaute Impliqué

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

hypo78

XLDnaute Impliqué

hypo78

XLDnaute Impliqué

Zdz16

XLDnaute Occasionnel

hypo78

XLDnaute Impliqué

gilbert_RGI

XLDnaute Barbatruc

Discussions similaires

Simplifier un code VBA

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency