Manipuler les cellules en VBA avec l’objet Range [#21 FORMATION EXCEL VBA COMPLETE]

[@dsggk]

Merci beaucoup, langage simple, montage excellent, rien à dire. Merci encore.

[@ExcelFormation]

Un grand merci ! :)

[@danielhess6149]

Excellent tuto, formation claire et précise, synthétique tout en étant très complète ! Merci et bravo !

[@ExcelFormation]

Merci à vous 😊

[@romlef526]

merci alex pour ce petit cours vba toujours aussi utile :)

[@ExcelFormation]

Merci Romain ! :)

[@geoffroyestingoy8209]

Merci. Vidéo très utile. J'attends la prochaine avec impatience...

[@ExcelFormation]

De rien Goeffroy ! Rendez-vous vendredi ;)

[@fadwaharrak8401]

merciiiiii maitre

[@casselmandaisy153]

Bonjour Monsieur, Merci pour le tuto très clair
je dois faire une mise en page où le code VBA ne doit s'appliquer que de la ligne 15 à 35 pour la 1ere page et le même code au même endroit pour toutes les autres pages Comment je fais ?

[@ExcelFormation]

Bonjour, voici un exemple de code pour réaliser l'opération (changement de la couleur de fond) :
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Dim i As Integer
For i = 15 To 35
ws.Rows(i).Interior.Color = 15410
Next
Next
À bientôt

[@casselmandaisy153]

Merci beaucoup j'essaierai demain Bonne soirée 👍😘

[@casselmandaisy153]

@@ExcelFormation Bonjour J'ai essayé mais je n' y arrive pas voilà mon code sans la limitation Pouvez-vous le compléter ? Merci d'avance
If Sheets("Enregistrer").Range("b4") = "" Then
'selection des données de la feuille Saisiemanuelle
Range("tableau5").Select
Selection.Copy
'coller dans le tableau Enregistrer
dl = Sheets("Enregistrer").Range("b1000").End(xlUp).Row
Sheets("Enregistrer").Range("b" & dl).PasteSpecial
Else
Sheets("Enregistrer").ListObjects(1).ListRows.Add
Sheets("Saisiemanuelle").Range("tableau5").Select
Selection.Copy
dl = Sheets("Enregistrer").Range("b1000").End(xlUp).Row
Sheets("Enregistrer").Range("b" & dl).PasteSpecial
End If

[@topolinolino3204]

Bonjour Monsieur,
je tente d'analyser/parcourir (avec dix boucles imbriquées for next et cells) des lignes (4000) de numéros (20) pour créer des combinaisons de 10 numéros. Cela prend 20 heures ?
Avez-vous une autre facon de faire, avec range, for each ou une autre commande ?
Voilà plus ou moins mon code...
for i = 1 to 4000
for i1=1 to 11
n(1)=feuille1.cells(i,i1)
for i2= i1+1 to 12
n(2)=feuille1.cells(i,i2)
for i3=i2+1 to 13
n(3)=feuille1.cells(i,i3)
etc.
(10 boucles imbriquées)
...
next i3
next i2
next i1
next i
ce code prend 20h après, pour créer des combinsiuoans de 10 numéros/sur les 20 de chaque ligne.
comment pourrais-je parcourir toutes ces celulles/lignes et créer des combinaisons de10 numéros sur les 20, et ce en moins de 20 h ?
Merci d'avance pour vos conseils.
Sergio