Créer boucle
loicen73
Messages postés
32
Date d'inscription
Statut
Membre
Dernière intervention
-
loicen73 Messages postés 32 Date d'inscription Statut Membre Dernière intervention -
loicen73 Messages postés 32 Date d'inscription Statut Membre Dernière intervention -
Bonjour, j'aimerais créer une boucle de ce programme:
Le but est de retranscrire le texte d'une cellule sur 2 (car une cellule sur deux est vide et inversement) de la ligne 11, à partir de la cellule C11 (donc faire varier la sélection d'une colonne sur 2 à partir de la cellule C11) de Sheets("ECS"), dans la colonne B de Sheets("Bouclage") à partir de la ligne 27 (donc retranscrire les données à partir de la cellule B27 sur chaque ligne.
Il faut également que la condition s'arrête lorsqu'il n'y a plus de texte sur la ligne 11 de Sheets("ECS").
Je vous remercie d'avance pour votre précieuse aide...
Sub test1()
If Workbooks("Test.xlsm").Sheets("ECS").Range("E11") Like "*" Then
Workbooks("Test.xlsm").Sheets("Bouclage").Range("B27").Value = Workbooks("Test.xlsm").Sheets("ECS").Range("E11").Value
Else
MsgBox "Renseigner tronçon"
End If
If Workbooks("Test.xlsm").Sheets("ECS").Range("E11") Like "*" Then
Workbooks("Test.xlsm").Sheets("Bouclage").Range("B28").Value = Workbooks("Test1.xlsm").Sheets("ECS").Range("E11").Value
Else
MsgBox "Renseigner tronçon"
End If
If Workbooks("Test.xlsm").Sheets("ECS").Range("G11") Like "*" Then
Workbooks("Test1.xlsm").Sheets("Bouclage").Range("B29").Value =
Workbooks("Test.xlsm").Sheets("ECS").Range("G11").Value
Else
MsgBox "Renseigner tronçon"
End If
If Workbooks("Test.xlsm").Sheets("ECS").Range("I11") Like "*" Then
Workbooks("Test.xlsm").Sheets("Bouclage").Range("B30").Value = Workbooks("Test.xlsm").Sheets("ECS").Range("I11").Value
Else
MsgBox "Renseigner tronçon"
End If
End sub
Le but est de retranscrire le texte d'une cellule sur 2 (car une cellule sur deux est vide et inversement) de la ligne 11, à partir de la cellule C11 (donc faire varier la sélection d'une colonne sur 2 à partir de la cellule C11) de Sheets("ECS"), dans la colonne B de Sheets("Bouclage") à partir de la ligne 27 (donc retranscrire les données à partir de la cellule B27 sur chaque ligne.
Il faut également que la condition s'arrête lorsqu'il n'y a plus de texte sur la ligne 11 de Sheets("ECS").
Je vous remercie d'avance pour votre précieuse aide...
A voir également:
- Créer boucle
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
- Créer un compte instagram sur google - Guide
1 réponse
Bonjour
est ce normal que la cellule E11 renvoie sa valeur dans B27 et B28 ? si oui, est le seul cas ?
Pourquoi like "*" , dans un autre post, tu as aussi ce like"*" et tu dis tester si la valeur est du texte
like "*" est validé quelque le type de données dans la cellule sauf si elle est vide
d'autre part, pas de réponse de ta part
https://forums.commentcamarche.net/forum/affich-35287082-variable-qui-selectionne-une-cellule-sur-deux#p35287124
ne serait ce que pour un minimum de politesse
est ce normal que la cellule E11 renvoie sa valeur dans B27 et B28 ? si oui, est le seul cas ?
Pourquoi like "*" , dans un autre post, tu as aussi ce like"*" et tu dis tester si la valeur est du texte
like "*" est validé quelque le type de données dans la cellule sauf si elle est vide
d'autre part, pas de réponse de ta part
https://forums.commentcamarche.net/forum/affich-35287082-variable-qui-selectionne-une-cellule-sur-deux#p35287124
ne serait ce que pour un minimum de politesse
Oui en effet E11 pour la première condition est C11. Erreur de ma part
J'ai cherché le code qui indique que la cellule contient n'importe quelles données (en l’occurrence les miennes contiennent du texte et des chiffres. Ex: tronçon).
Je suis novice en VBA donc n'hésitez pas à m'indiquer ce qui n'est pas cohérent.
Je vous remercie beaucoup et m'excuse pour l’absence de réponse sur l'autre post.
Ma réponse tardive est due au week end prolongé !