Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Bonsoir, Essai ceci :
Sub Redimensionner() Dim Plage As Range Dim Cel As Range Set Plage = [A1:D7] With Plage 'ajoute 2 lignes et 2 colonnes Set Plage = .Resize(.Rows.Count + 2, .Columns.Count + 2) For Each Cel In Plage Cel = "Ce que tu veux !" Next Cel End With Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"John Smith" a écrit dans le message de news: B01Se.13680$
Bonjour,
Comment je peux changer un range dans excel avec vb6
exemple de code que je cherche Dim b As Range Set b = objExcel.Selection b = b + ??? 2 rows
merci
Bonsoir,
Essai ceci :
Sub Redimensionner()
Dim Plage As Range
Dim Cel As Range
Set Plage = [A1:D7]
With Plage
'ajoute 2 lignes et 2 colonnes
Set Plage = .Resize(.Rows.Count + 2, .Columns.Count + 2)
For Each Cel In Plage
Cel = "Ce que tu veux !"
Next Cel
End With
Set Cel = Nothing
Set Plage = Nothing
End Sub
Hervé.
"John Smith" <spam@microsoft.com> a écrit dans le message de news:
B01Se.13680$884.895780@news20.bellglobal.com...
Bonjour,
Comment je peux changer un range dans excel avec vb6
exemple de code que je cherche
Dim b As Range
Set b = objExcel.Selection
b = b + ??? 2 rows
Sub Redimensionner() Dim Plage As Range Dim Cel As Range Set Plage = [A1:D7] With Plage 'ajoute 2 lignes et 2 colonnes Set Plage = .Resize(.Rows.Count + 2, .Columns.Count + 2) For Each Cel In Plage Cel = "Ce que tu veux !" Next Cel End With Set Cel = Nothing Set Plage = Nothing End Sub
Hervé.
"John Smith" a écrit dans le message de news: B01Se.13680$
Bonjour,
Comment je peux changer un range dans excel avec vb6
exemple de code que je cherche Dim b As Range Set b = objExcel.Selection b = b + ??? 2 rows
