Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boucle FOR +IF incompatible

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion piegre
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

piegre

XLDnaute Junior
Bonjour à tous,

J'ai tappé ce code mais il ne fonctionne pas ( pour changer ><) :

Code: 
Sub traitementdonnée()
Dim i As Long


For i = 1 To 30
    
    If UCase(Left(Cells(4, i)) = "H" Then
    Sheets("PLAN").Select
    Range("Ei:Fi").Select
    Selection.Copy
    Sheets("PLAN donnée").Range("Ei:Fi").Select
    Range("Ei:Fi").Select
    ActiveSheet.Paste

    End If
Next
End Sub

C'est une boucle for avec un If imbriqué, je lis les cellules de D1 à D30 , et quand la 1ère lettre de la case est égale à H je fais un copier coller de Ei et Fi dans un autre onglet sur les cases Ei : Fi ( à terme je voudrai mettre à la place des i, la dernière cellule non vide) mais cela ne fonctionne pas.
Avez vous une idée ?
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Boucle FOR +IF incompatible

Bon j'ai modifié mon codee et ça marche :

Code: 
Sub traitementdonnée()
Dim i As Long


For i = 1 To 30
    
    If UCase(Left(Cells(4, i), 1)) = H Then
    Sheets("PLAN").Select
    Range("Ei:Fi").Select
    Selection.Copy
    Sheets("PLAN donnée").Select
    Range("Ei:Fi").Select
    ActiveSheet.Paste

    End If
Next
End Sub

Sauf quand je met Ei , il ne compte pas le i comme la variable mais comme EI, comme une case comme EH ou EJ
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Boucle FOR +IF incompatible

Pour ceux que ça intéresse j'ai trouvé :

Code: 
Sub traitementdonnée()
Dim i As Integer

Worksheets("PLAN donnée").Range("A3:J1000").ClearContents

For i = 1 To 30
    
    If UCase(Left(Cells(i, 4), 1)) = H Then
    Sheets("PLAN").Select
    Range(Cells(i, 5), Cells(i, 6)).Select
    Selection.Copy
    Sheets("PLAN donnée").Select
    Range(Cells(i, 5), Cells(i, 6)).Select
    ActiveSheet.Paste


    End If
Next
End Su
 
Vote positif 0 Vote négatif
Re : Boucle FOR +IF incompatible

Cependant , j'ai plusieurs lettre dans la colonne ( H,B,C,D,F,A) donc j'ai fait plusieurs ELSEIF. Le code est beaucoup trop long.Avez vous une idée pour le simplifier ?

Code: 
Sub traitementdonnée()
Dim i As Integer

Worksheets("PLAN donnée").Range("A3:J1000").ClearContents

For i = 1 To 120
   
 If UCase(Left(Cells(i, 4), 1)) = H Then                      ' Si la 1ère lettre de la case Di = H
    Sheets("PLAN").Select                                        ' Selection de l'onglet "PLAN"
    Range(Cells(i, 5), Cells(i, 6)).Select                        ' Selectionne les cellulles Ei:Fi
    Selection.Copy                                                  ' Copie la selection
    Sheets("PLAN donnée").Select                              ' Selection de l'onglet "PLAN donnée"
    Range(Cells(i, 5), Cells(i, 6)).Select                        ' Selectionne les cellulles Ei:Fi
    ActiveSheet.Paste                                              ' Colle dans la selection
    
    ElseIf UCase(Left(Cells(i, 4), 1)) = b Then                'Si la 1ère lettre de la case Di = B
    
    Sheets("PLAN").Select
    Range(Cells(i, 5), Cells(i, 6)).Select
    Selection.Copy
    Sheets("PLAN donnée").Select
    Range(Cells(i, 3), Cells(i, 4)).Select
    ActiveSheet.Paste
  
    ElseIf UCase(Left(Cells(i, 4), 1)) = c Then                 'Si la 1ère lettre de la case Di = C
    
    Sheets("PLAN").Select
    Range(Cells(i, 5), Cells(i, 6)).Select
    Selection.Copy
    Sheets("PLAN donnée").Select
    Range(Cells(i, 1), Cells(i, 2)).Select
    ActiveSheet.Paste
    
    ElseIf UCase(Left(Cells(i, 4), 1)) = D Then               'Si la 1ère lettre de la case Di = D
    
    Sheets("PLAN").Select
    Range(Cells(i, 5), Cells(i, 6)).Select
    Selection.Copy
    Sheets("PLAN donnée").Select
    Range(Cells(i, 7), Cells(i, 8)).Select
    ActiveSheet.Paste
    
    ElseIf UCase(Left(Cells(i, 4), 1)) = F Then                'Si la 1ère lettre de la case Di = F
   
    Sheets("PLAN").Select
    Range(Cells(i, 5), Cells(i, 6)).Select
    Selection.Copy
    Sheets("PLAN donnée").Select
    Range(Cells(i, 7), Cells(i, 8)).Select
    ActiveSheet.Paste

    ElseIf UCase(Left(Cells(i, 4), 1)) = a Then                'Si la 1ère lettre de la case Di = A
    
    Sheets("PLAN").Select
    Range(Cells(i, 5), Cells(i, 6)).Select
    Selection.Copy
    Sheets("PLAN donnée").Select
    Range(Cells(i, 9), Cells(i, 10)).Select
    ActiveSheet.Paste
    
    
    End If
Next
End Sub
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Boucle FOR +IF incompatible

Bonsoir
Je ne comprends pas ton code ( qui ne marche pas d'ailleurs)
Tu transformes ta première lettre en majuscule et puis tu la testes comme si c'est une minuscule dans certains cas (b,c,a)
tu n'auras donc jamais une égalité.
pour info il faut rajouter des " avant et après la lettre. (sinon VBA considérera que c'est une variable)
voila un code simplifié


Code: 
Sub traitementdonnée()
Dim i As byte
Dim Toto As String
Worksheets("PLAN donnée").Range("A3:J1000").ClearContents
For i = 1 To 30
    Toto = UCase(Left(Cells(4, i), 1))
    Select Case Toto
        Case "H", "B", "C", "D", "F", "A"
            Sheets("PLAN").Range("E" & i & ":F" & i).Copy Destination:=Sheets("PLAN donnée").Range("E" & i & ":F" & i)
        Case Else
    End Select
Next
End Sub
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Boucle FOR +IF incompatible

Bonjour
et si tu envoyais un fichier avec une demande précise.
que l'on puisse tester
Sur le fichier que j'ai réalisé pour tester cela marche !( évidemment j'ai supprimé les select , donc tu ne vois pas les copie se faire , mais elles se font : regarde dans les résultats)
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Boucle FOR +IF incompatible

Voilà j'ai mis le fichier, le code qui vous intéresse se trouve à la fin du module "Importer", donc ce que je souhaite faire :

- Dans l'onglet PLAN, je souhaite lire la colonne "D", et à chaque fois que la lettre "H" apparaît

- On copie colle la case "E" et "F" correspondante dans l'onglet "PLAN donnée" à la case "E" et "F"

Dites moi si j'ai pas été assez claire.

Je comprend pas pourquoi le code ne fonctionne pas. Les nom des onglets sont les mêmes et les cases également.
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Boucle FOR +IF incompatible

Bonjour
Voir dans le module JM27.
1/J'ai modifié de manière à importer les lignes qui sont uniquement documentées en colonne A de plan.
2/ comme il n'y a pas de ligne de titre dans la feuille plan et qu'il y en a deux dans la feuille plan données j'ai donc fait un transfert de ligne +2 de manière à ne pas écraser les titres.
3/ j'ai gardé le test avec les autres valeurs ( "H", "B", "C", "D", "F", "A") voir le select case
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Boucle FOR +IF incompatible

Bonjour
comme indiqué dans mon message précédent cela fonctionne déja avec les autres lettres ( que j'ai modifié en majuscule dans le test)
et j'ai rajouté des données bidon en colonne A ( colonne qui indique la grandeur de la zone à tester)
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
169
cathodique
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
613
Piment
P
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
626
Claudinedu13
C
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
680
patricktoulon
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
574
kiki29
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
642
piga25
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
861
Compte Supprimé 979
C
S
  • Résolu(e)
XL 2016 Boucle For ne s'exécute pas comme une boucle et boucle infinie
Réponses
2
Affichages
381
Stéphane_1
S
  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
2 K
Jouxte
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
646
patricktoulon
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
798
job75
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
P
  • Question Question
Microsoft 365 Macro qui plante exel
Réponses
1
Affichages
517
mapomme
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
562
Francky79
F
  • Question Question
Microsoft 365 Format Nombre Combobox dans Feuille
Réponses
3
Affichages
568
fanch55
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
914
oguruma
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…