Remplissage d'une cellule vide dans boucle For
Fermé
silviayo
Messages postés
2
Date d'inscription
mercredi 8 avril 2015
Statut
Membre
Dernière intervention
10 avril 2015
-
8 avril 2015 à 16:20
silviayo Messages postés 2 Date d'inscription mercredi 8 avril 2015 Statut Membre Dernière intervention 10 avril 2015 - 10 avril 2015 à 09:46
silviayo Messages postés 2 Date d'inscription mercredi 8 avril 2015 Statut Membre Dernière intervention 10 avril 2015 - 10 avril 2015 à 09:46
A voir également:
- Remplissage d'une cellule vide dans boucle For
- Coeur vide ✓ - Forum Internet / Réseaux sociaux
- Aller à la ligne dans une cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Remplacer cellule vide par 0 excel ✓ - Forum Excel
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
2 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
Modifié par ThauTheme le 8/04/2015 à 21:42
Modifié par ThauTheme le 8/04/2015 à 21:42
Bonsoir Sílvia, bonsoir le forum,
Évite autant que tu le peux les Select qui ne font que ralentir l'exécution du code.
peut s'écrire :
Et si tu copies tous les formats ça se simplifie encore avec :
Pour ton problème, si j'ai bien compris car sans fichier c'est pas facile, je te propose le code ci-dessous qui utilise l'étiquette suite. Il faudra peut-être la déplacer vers le bas. Tu adapteras :
À plus,
ThauTheme
Évite autant que tu le peux les Select qui ne font que ralentir l'exécution du code.
Sheets("Feuil1").Select
Range("A1").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
peut s'écrire :
Sheets("Feuil1").Range("A1").Copy
Sheets("Feuil2").Range("B1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Et si tu copies tous les formats ça se simplifie encore avec :
Sheets("Feuil1").Range("A1").Copy Sheets("Feuil2").Range("B1")
Pour ton problème, si j'ai bien compris car sans fichier c'est pas facile, je te propose le code ci-dessous qui utilise l'étiquette suite. Il faudra peut-être la déplacer vers le bas. Tu adapteras :
Sub Macro1()
For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) = True Then
For c = 1 To ListBox1.ColumnCount - 14
Sheet5.Cells(4 + Range("Compteur2"), c + 3).Value = ListBox1.List(r, c)
Sheets("Base étude").Cells(3 + Range("Compteur2"), 4).Copy
With Sheets("Feuille sup")
.Range("B42").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("B43").Value = TextBox1.Value
.Range("B43").Copy
End With
With Sheets("Base")
If (.Cells(2 + Range("numéro"), 18)) = "" Then
.Cells(2 + Range("numéro"), 18).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
GoTo suite
ElseIf IsEmpty(.Cells(2 + Range("numéro"), 19)) Then
.Cells(2 + Range("numéro"), 19).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
GoTo suite
ElseIf IsEmpty(.Cells(2 + Range("numéro"), 20)) Then
.Cells(2 + Range("numéro"), 20).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
GoTo suite
ElseIf IsEmpty(.Cells(2 + Range("numéro"), 21)) Then
.Cells(2 + Range("numéro"), 21).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
GoTo suite
ElseIf IsEmpty(.Cells(2 + Range("numéro"), 22)) Then
.Cells(2 + Range("numéro"), 22).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
End With
suite:
Next c
End If
Next r
With Sheets("Base étude")
.Range("Q5").Copy
.Range("Q6:Q70000").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Select
.Range("A1").Select
End With
End Sub
À plus,
ThauTheme
silviayo
Messages postés
2
Date d'inscription
mercredi 8 avril 2015
Statut
Membre
Dernière intervention
10 avril 2015
10 avril 2015 à 09:46
10 avril 2015 à 09:46
Salut ThauTheme,
Merci beaucoup pour ta réponse et pour tes conseils! Ta solution a très bien marché!
Cdt,
Silvia
Merci beaucoup pour ta réponse et pour tes conseils! Ta solution a très bien marché!
Cdt,
Silvia